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den Computer und darauf spezialislerte Zait- 
schriften. Und wer , wenn nicht Ccmputeranwender , 
sind solcher Entwicklung auf geschlossen . Auch 
CK-Leser steigen immer inehr tut andare Computer 

Punkt, an dam die Zeitschrift sich nicht mehr 
tragt. EJeshalb ist dies die ietzte Ausgebe von 
Computer Kontakt. 

so diirfen wir Ihnen varaichern, daS auch una die 
Entscheidung nicht leichtgef alien ist. SchlieD- 
lich Mar Computer Knntakt die arste Zeitschrift 

eine besonders treue Leserschaft. 

Dafur uollen wir una bei Ihnen bedanken. Denn 

haben. den Ateri-Usern bietet der Uerlag und 
seine Autoren nit dem ATARI megazin.das jatzt 
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Hamburg 
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03.02 
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5 07.02.88 


Hobby-ironic 


Dortmund 


Westfalenhalle 


16.03 
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s 23.03.88 


CeBit'88 


Hannover 


Messegeiande 


20.04 




s 27.04,88 


Hannover- 
Messe Industrie 


Hannover 


Messegeiande 


26.04 




s 2S.04.88 


Infobase 


Frankfurt 


Messegeiande 


04.05 




is 07.05.88 


B.I.T. 


Frankfurt 


Messegeiande 


04.05 
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is 07.05.88 


BURO + COMPUTER 


Miinchen 


Messegeiande 


17.03 




is 20.05.88 


CAT '88 


Stuttgart 


Messegeiande 


08.06 




s 11.06.88 


telematics 


Stuttgart 


Messegeiande 


09.09 




is 10.09.88 
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06. 1C 
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Rekursive Pascal-Prozedur 

(In Spalte c 
falgenden S| 

■negltch } 

procedure setda; 

begin 

then begin 

spalteCc] (■ t>; 

if c=a 

then ausgabe 
=»t_zeile(eli 
set_diag2Ic,e) i 

cl- c-l| 

res_dtagl(c,eli 



Basic-Listing 

1 REH Das Ac hi -Damn- Problem 



10 DEF FN A<XS>=CODE X*-4B-39* 
(X*>"9'> 

20 DEF FN B(X*J-16#FN A(X»(iJI 
+FN A(X*<2)> 

30 LET A=3E4 

40 IF PEEK IA*322J<>201 THEN 6 
D TO 2000 

90 PRINT -Das Acht-Dawen-Probl 



70 IF S<2 OR S>13 THEN GO TO 6 



70 IF L<1 OR L>13 THEN 00 TO 8 
I 
100 REM Folgsnde Zeile je nich 



110 CLEAR ■: OPEN N3;'f: FORMA 
T 't-;4S00 
120 LET N=USR A,S,L 
130 PRINT : PRINT "Ergebnis der 
USR-Funkt i on = 'IN 
140 STOP 

2000 REM NaschinanccidB erzeugen 

2010 RESTORE : CLEAR 39999 

2020 LET A=3E4 

2030 FOR Z=3000 TO 3030 STEP 10 

2040 PRINT -Zeile "(2;-: ■[ 

2050 READ A*: LET S=0 

2060 IF LEN A*<4 OR LEN A»/2<>IN 

T (LEN AS/2) THEN GO TO 2160 

2070 FOR 1=1 TO LEN A*-2 STEP 2 

2080 LET X=FN BIMII TO Hill 

2090 LET S-S+X 

2100 POKE A,X: LET A=A+1 

2110 NEXT I 

2120 IF FN BIASII TO I ) <>S-256*I 

NT IS/256) THEN GO TO 2180 

2130 PRINT 'ok' 

2140 NEXT Z 

2130 PRINT -Maschlnencoda 1st In 
Ordnung. ■ 

2160 RUN 

2180 PRINT 'fehlerhaft!': STOP 

2999: 

3000 DATA "Cd811ccd»22dcd0116ed8 

1 1 c c d a22d 3 2 92 5 c 4 7c d c a 750d 4 1 636 8 7 
42d 44 6 1 6d 656e Zd 50726* 626c 636d0d 
d 2020204e7 22*20001 6413e20d77ad71 
4 1 04 83e0d d 7796 1 c 60a4 73e2d d 7 1 0f b3 
e0d <J 7 06 30 a i 2 1 4 3 7 7 7 7 2 3 1 Hi c 22 93 5 c 2 
1 4b 7 6 e 2 60 S3 6 202 3 1 7 ■ 
3010 DATA ■10fb363021a7750d20f 10 
e0 1 c d d 375c d c a750d 202020202030204 
5 6c 656065 6e 74617265 20 5 37 46361 6C 7 
56e676 56*0d00e d 4b6 77 7c 9e37 e2 3e3a 
7c8d71St71e00cd541fd27blbli:3a925 
c bb d 8 Z 1 497 7 1 600 1 9c t>4 6 20ea2 29 5 5c 4 
2092 b c b 4e Z0e0229 75c63 ■ 
3020 DATA ■214a777993c607514f094 
acb 5 620c ee52 1 6 a7709733a925c b 9cc3 
8 76 e 1 2 8b e c b d 6 e52 a 9 75c c b c ee 5 2 a 9 55 
ccbc6a30cd3cdd375dl0delcb86elcbB 
ee 1 cb96 1 89d -f ScSd 32a677723Z2677 72 
1 3 1 76c d 2a77c d c a 7 5 2020 20 2 020 30 2 00 
0+ d 4658432 1 6b77«33e40 ■ 
3030 DATA "20d77e23c630d710+6ell 
1 3b 7 ?e fl b 30 60 4 c 5c d + 9760602c 5 c d r 5 7 
Ic576c<t0e77cll0f0cll0e7c 



6cdi+7; 



:47fd4 

:2a69? 



723 22 677 72 lad7 5c d2a773e0d d 7 2 1 3 b 7 

7116b770600fd4e38ede6- 

3040 DATA *b0dlclf Ic9217a77«d4b6 

97 70b c b 78c0c 5 1 1 6b 77f d4e3B 1 abe 200 

bl3230d20f7clclt 
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3 e0d d 2 1 9 65 e 2 1 6b 7 7 3 a 9 25c a 7 4 f c 9c d e 

c76e 37eZ3 32047 7d d 7000 1 * 6 2 1 99 3c d 

1 edb0c 9c d oc 76*57332 1 a777e 23d d 770 

010-f318«8cd*0760c791a" 

3050 DATA ■ 96772310+ ac92b7»3630* 

e 3 933-< 8 i e 20230 2 3 e 30 3c 77 £ 99 b " 

8999! 

9000 SAVE ■8-DamBn' LINE 1 

9010 STOP 

9500 SAVE #■»■( lfda»e" LINE 1 

9510 VERIFY #■■■;!! -dMi»" 

9320 STOP 

?6?9: 

9700 PRINT -PrograBi™ch»n, das P 



RIN - 



icht* 



'10 INPUT ■Zellennunwr: 'fZ 
9720 LET A-PEEK 23635*236*PEEK 2 
3636 

9730 LET Y-256*PEEK fl+PEEK (A*ll 
9740 IF Y>Z OR Y>9999 THEH PRINT 

■Zeile nicht gefunden! *: STOP 
9750 IF Y<Z THEN LET A-A+4+PEEK 
<A*2> ■-256*PEEK CA*3) : QO TO 9730 
9760 LET A=A+4 

9770 IF PEEK A<>245 THEN PRINT ■ 
Kein PRINT-Konaanda am An+ang 
von Zeile "|Zi"!"S STOP 
9730 POKE A, 241: PRINT "ok"! STO 
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Assemblerlisting ziun ™'™Sr . "*""" B - w gfj, ll."™?™."" 1 

Acht-Damen-Problem m. ■»■■.. «.»=-!•. ..- ■•!».*», Eft*"' [Bait By 
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Programmierung von Adventures 
(TeU 3) 



1st ein Gegeralaml ,. c !„,„!,■„ 


spiidii.DasgL-^hithlji 


Khde 








winldLcscrlinZtili.'.^JOliUij 
























. . .nUiuaiihmnEn- 


jSKSEi, 






irWm 


"-' ( >l> F kk- !"■■' •'-«- !>'" '■"■'! 


crctidil.DiKeNurame 


konu 



findcn.nhdaisi.-.«lilr.: <>!>,:k; 



jSKSaSr: 


™t 


issSsSS 


SS^—t ~ 


ssrsi'sr 



ie Hauptsehleife des Pro- 























j.h; -j ct spirit 




ic dcm gcwlllilurn 
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a Bcgtim sucht, ^ 

tfUVOtrrmmiiglci- das G 



inen disSitJulHi- WWSitsburg 



1899 REM NEHMEN 

1900 GO SUB 300 

1910 IF ob=0 THEN LET aS=": 

n.": GO SUB 150: RETURN 
1920 IF oloblolec THEN LEI 
"Dieses Objelct 1st hier nich 
lso koennen Sie es auch nicf 
: GO SUB 150: RETURN 



I LET ( 



^255 
U99+< 



1940 RESTORE 9199+ob: READ ; 

: LET aS="Sie nehmen ™+aS+" auf . 

"1 GO SUB 150 

1950 RETURN 

2048: 

3049 REM FALLEN LASSEN ' 

2050 GO SUB 300 

!06O IF ob=0 THEN LET aS="Ich w 
dss nicht, »as Sie fallen lasse 
L wollen.": GO SUB 150: RETURN 
!070 IF o(ob)<>255 AND otob)<>25 

4 THEN LET aS-"Dieses Objekt ha 

ben Sie gar nicht bei aich.": GO 
: RETURN 

2080 LET o(ob)=loc: RESTORE 9199 
READ a$,aS 

2090 LET aS="Sie lasaen "+aS+" f 
; GO SUB 150: RETURN 

2099 REM LISTE DER DINGE, DIE DE 
R SPIELER BEI SICH HAT 

.00 LET flag*0: PRINT "Sie habe 
n folgendes bei sieh:" 
2110 FOR i=l TO objekte 
2120 IF o(l)>253 THEN LET flag- 



1: RESTORE 9 


L99+i: READ aS 




SUB 150 






2130 


NEXT i 






2140 


IF flag 


=0 THEN PRINT 


"Gar 


2145 


RETURN 






2199 


REM BEHEGUNGSROUTINE 




2200 


LET mo- 






2210 


LET eS= 


NSOHHR": FOR 


=1 TO 


LEN 


cS: IF 


S(l>=cS(i) THEN LE 










2220 

N 

2230 


NEXT i: 


IF no=0 THEN 


RETUR 


LET addr-60000+(tloc- 


)*€)*■ 




) : LET w=PEEF addr 




2240 


IF w-0 THEN LET aS=" 




se Richtung 


oennen Sie ni 


ht ge 




: GO SUB 150: RETURN 




2250 


LET aS=" 


Sie geheti nach "+dS 




GO SUB 


150 




2255 


PRINT ' 






2260 


LET loc 


w: GO SUB 200 




2270 


RETURN 
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Alphabetisches Sortieren 
in superschnellem Maschinencode 



:i;uljcd.iiiS|Kcir Lfkann asulni. StJHT-DHMO s ,caj (h« i!iK: JJ3(1J und Vfi'iJ! di. 



imiglirli. rfl. ,:intin l>eliehi£en die freidefimci 



I nil I iilplLibfiisch n. POKEWNH,! 



aS (dim!, dim2). J 





















gram m m illeh C3 i )TO W N ) L N - 


Tistaturbctegiing fjir dcufsche Umlaute und B 








^S™i«^: 


A: GRAPHICS 


. :■■ •■' 


'X^N^IZmKORREKI^ 


6: GRAPHICS 


cSliSEi, u 




0; GRAPHICS 






(H-i-IRKllvw.MCSonKXLvi 






!'.Ki :ilji li:Liid. Irinlieini IV.- 




Hrr.rmialilHiif ilii: NVlilimj! 






■ ■ ■'. .:'::■..■■ 








Beispicl fiir cine alpha 


wlische Sortierung 


Lll^l.'.Sril.VlLTI 1 L^iTI^. Vl.ll- 




























































i'^ii!,'! ik-; .i^ucipcichcrlc Ma- 
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Strings. IM diese g| 

Eintrngel, mini [ 
(.SI ring ) a ngeip ru n 



Basic-Ladeprograimn 

1 REM MC-SORT HEXLOADER 
by Thomas Haas 
100 CLEAR 31999+32500* (PEEK 237 
33=255) 

11 LET version=16+32*(PEEK 337 
33=255) 

105 LET adr=[PEEK 23730+256*PEE 
K 2.3731) +1: LET zeile= (2000-1000 
?ersion=48) ) : RESTORE zeile: D 
IH mS(64) 

LO FOR i=zeile TO (zeile+150) 
STEP 10 
115 PRINT "Zeile: ";il" ": 
120 LET k=0: READ mS.kon 
130 FOR j=l TO 63 STEP 2 
140 LET p=16'lC0DE mS(j)-48-(7* 
(mS (j )>"§"> Jl+CODE mS(j+D-48-{7 

*twS(i+i)>"'i"J) 

150 POKE adr.p 

160 LET k=k*p 

170 LET adr=adr+l 

180 NEXT j 

190 IP kokon THEN PRINT FLAS 
H 1;"PEHLER IN DATA!": PRINT ' "V 
ergleichen Sie diese Zeile!!": S 



200 PRINT "KORREKT!": NEXT i 

210 PRINT ' "speichern sie nun d 
en MC ab i " 

220 PRINT ■ "Bei Pehlermeldung: 
GO TO 210" 

230 SAVE "MC-SORT "+STRS versio 
nCODE (adr-512! ,512 

240 PRINT FLASH 1 '"VERIFY" 

250 VERIFY ""CODE (adr-512) , 512 

260 STOP 

999 REM DATA 48K 
1000 DATA "2A4B5CED5B595C373FE52 
3EBED52E1C87EFEC1287CCB7F200ECB7 
7280ACB6F2B",3918 

1010 DATA "0611O6001918DCCB7F231 
3CB77200FCB6F28 0B23CB7E28FB11060 
01918C5CB7F".2675 

1020 DATA "2310CB77200CCB6F20082 
35E2356192318B1CB7F280ECB7 7 280AC 
B6F28061113-,2439 

1030 DATA "O019189FCB7F2011CB772 
80DCB6F2009235B23561923C3F7FBCB7 
FCAF7FBCB7T , 3672 

1040 DATA "CAF7FBCB6FC2F7FB235E2 
3561923C3P7FB23232323 23234E2346E 
D43E4FD2322",3956 

1050 DATA "E6FD3E000100001100002 
10000010100110200ED43FOFDED53F2F 
D2AE6FDED5B",3082 

1060 DATA "E4FD19545DED4BE6FDED4 
3ECFDED53EEFDE56069ED4BEAFD09444 
D0A6069ED4B",4988 

1070 DATA "EAFD373FED42444DE1CD8 
DFD67E5626BED58EAFD19545D1A626BE 
D5BEAFD373F",4595 

1030 DATA "ED52545DE1CDBDFDBC2B0 
7 301ECEBEPD18190313C5D52AE4FDED4 
BEAFD373FED" ,4439 

1090 DATA "42444DEBED42EBD1C120A 
6ED4BF0FDED5BF2FDC5D5EBED4BE8FD3 
73FED42EBD1",5519 

1100 DATA "C1281913ED53F2FDED5BE 
EFDC5EBED4BE4FD09EBC1ED4BECFDC3B 
DFCC5D5C5D5",5830 

1110 DATA "C1D1EBED4BE8FD0B373FE 
D42EBD1C1C8 03505913ED43F0FDED53F 
2FDED4BECFD" , 5307 

1120 DATA "E56069ED5BE4FD19E5C1E 
1C550 59EBED4BE4FD09EBC1C3BDFCFE9 
02002D64FFE",5357 

1130 DATA "A22002D661FE9E2002D64 
FFE9F2002D650FEA42002D6 4FFE98200 
2D643FE9120",38B4 

1140 DATA "02D63EFE5B3802D620C9E 
D4BECFDED5BEBFD210000C5230AEB46E 
B127 8C102C5",4093 
1150 DATA "E5ED4BE4FE373FED42E1C 
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1C80 31318E50000O0000O0000OG00OO0 
000000O0000",2336 

1999 REM DATA 16K 

2000 DATA "2A4B5CED5BS95C373FE52 
3EBED52E1C87EFEC1287CCB7F200BCB7 
7280ACB6F28" ,3918 

2O10 DATA "061106001918DCCB7F281 
3CB77 200FCB6F380B23CB7E28FB11060 

tl8C5CB7F , ',2675 
2020 DATA "2810CB77200CCB6F20082 
35E235S192318B1CB7F2S0ECB77280AC 
B6F28061113",2439 

2030 DATA "0019189FCB7F2O11CB772 
80DCB6F2009235B33561923C3037DCB7 
FCA037DCB77" ,2932 

2040 DATA "CA037DCB6FC2037D235E2 
3561923C3037D2323 232333234E2346B 
D43F07E2322 , ',2731 

3050 DATA "F27E3EQO01000O11G0002 
100000101001 10200ED4 3FC7EED53FE7 
E2AF27EED5B",2622 

2060 DATA "F07E19545DED4BF27EED4 
3F87EED53FA7EE56069ED4BF67E09444 
D0A6069ED4B",4413 

2070 DATA "F67E373FED42444DE1CD9 
97E67E5626BEDSBF67E19545D1A636BE 
D5BF67E373F",4135 

_ DATA ■'ED52545DE1CD997EBC2B0 
7301ECDCA7E18190 313C5D52AFO7EED4 
BF67E373PED",3979 

2090 DATA "42444DEBED42EBD1C120A 
6ED4BFC7EED5BFE7EC5D5EBED4BF47E3 
73FED42EBD1",5174 

2100 DATA "C1281913ED53FE7EED5BF 
A7EC5EBED4BF07E09EBC1ED4BF87EC3C 
97DC5D5C5D5",5255 
2110 DATA "C1D1EBED4BF47EOB373FE 

D42EBD1C1CB035O5913ED43FC7EED53F 

E7EED4BF87E",4847 

2120 DATA "E56069ED5BF07E19E5C1E 

.C5 5059EBED4BF07EO9EBC1C3C97DFE9 

02002D64FFE",5012 

2130 DATA "A22OO2D661FE9E2O02D64 

FFE9F2002B650FEA42002D64FFE98200 

2D643FE9120",3884 

2140 DATA "02D63EFE5B3802D630C9E 

D4BF87EED5BFA7E210000C5230AEB46E 

B1278C102C5 M ,3B63 

2150 DATA "E5ED4BF07E373FED42E1C 

1C8031318E5OOOO0000OC0000O00OOO0 

O000OO000OO", 2221 

9990 CLEAR : SAVE "MC-LOADER" : F 

RINT " VERIFY " : VERIFY "MC-LOAD 

ER" : STOP 



Demo-Programm 

1 REM SORT-DEMO 
Thomas Haa3 
5 CLEAR 31999+32500' (PEEK 237 
330255) : LOAD "MC-SORT "+STRS < 
16+33MPEEK 33733=2551) CODE 
10 GO SUB 9000 

20 LET start=33000+32500'(PEEK 
33733-2551: DIM aS(10,10> 

30 CLS : PRINT " >>SORT 
- DEMO<< 



;chiedei 



Gebei 



i bit' 



(mi 



70 NEXT i 

80 INPUT "Geben Sie nun ein, a 
b welchera Buchstaben die Strin 
gs sortiert werden sollen. " ; buch 

85 IF buch'l OR buch)10 THEN 
GO TO 80 

90 POKE atart+500,10: POKE sta 
rt+502,buch-l 

100 RANDOMIZE USR start 

110 CLS 

120 FOR i=l TO 10 

130 PRINT (" " AND i<10);i;". " 
;aS(i) 

140 NEXT i 

150 PRINT #0;"Nochmal sortieren 

(3/n>?" 

160 PAUSE 

170 IF INKEYS="j" OR INKEYS="J" 

THEN GO TO 80 

180 INPUT ■'" : PRINT #0;"Neue S 
trings Ij/nl?" 

190 PAUSE 

200 IF INKEYS="i" OR INKEYS="J" 

THEN GO TO 30 

210 STOP 
9000 RESTORE 9000: FOR i=l TO 7 
9010 READ iS 

9020 FOR j=USR iS TO USR 1S+7 
9030 READ in: POKE j.in 
9040 NEXT j 
9050 NEXT i 
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Recorder vo 




,66,0 
60,0 


n Enterprise 


Err;'-' ■ ' 


(KEMOTLj. 

lIo-.ilVi SliiHclierproblemeauf. 


0,0 

120,64 

9990 CLEAR : SAVE "SORT-EEMO" : P 
HINT FLASH 1;"VERIFY": VERIFY " 
SORT- DEMO" 


i^^i^ 


WM 


Codewort 


Li>rGi-i vti iiiiil 1 1 1 t_- I l-.l^.'i..i: 

Outpul: 450 mW 

I'fipc S.Wii 4 : /=i:mtoi: 



i^m^^'l' 1 "** ab6tB; 






Spectrum 

User Club 

Wuppertal 



Postfach 20 01 02, 5600 Wuppertal 2 



g SINCLAIR SPECTRUM 



Script 

Seat hu Utfinicren eiiiei 



IjslJinJr.itgctnitd)- hOrigcn Bytes au 



«'«'5l| 



"A-i.'L-kJ ^„ Ni,l' ^'"'"^t^rj^lfi-idil. Zcichcnw 



Pr:n:-|-cldLi L. n . L\-l ^ O Ir;:l 



Neue Zeiehen mit Scrip! 



rEle:026Sl/6005 
5 POKE 23606,0: POKE 23607,60 

20 READ A: POKE N,A 

40 DATA 0.24,24,126,126,24,24, 

45 DAT* 255,129.129,129,129,12 
9,129,255 

255 

52 DATA 255,0,255.129.126,36,2 

'53 DATA 0,55,66,50,10,114,0,0 

54 DATA 0.102.149,150,148,100, 

55 DIM R(8)i FOR J=l TO 6: REA 
5E DATA 128,64,32,16,8,4.2.1 



11 


30 


53760" 
255,0 


l^TO 


J - 


S HEXT 6 



) xs^ 



100 FOR N-l TO 30 STEP 6: PRINT 
110 PRINT AT 9,6;"Eneviclceln Si 

AT 13, N;" ■ ■ ": NEXT N 
130 PRINT AT 16,1; 1987 by P 

135 PLOT 0,20: DRAW 255,0 

.1,8: BEEP .1,10: BEEP !o9,ll: B . 
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150 PRINT 


IT 20,6;"DRUECKE EINE 


UBPUNKT 6ANZEIGE WECHSELNB" 


160 CLS : 




210 PRINT '" DER NEUE ZEICHENSA 


DRAW 0,175 




T2 WIRD MIT e POKE 23607. WERT 


,-17 5 




£ BIN UND MIT B PORE 23607,60 6 






AUSGESCHALTET DER WERT WIRD IM P 






ROGRAMM ANGE- GEBEN" 


b"erm S dib 


ENTNICKELN.SIE HAB 


212 PLOT 0,0: DRAW 255,0: DRAW ■ 
0,175: DRAW -255.0: DRAW 0,-175: 


UE^EICHEN- 


satz S a^faS°eS E soll 


PRINT AT 20 , 6 ; "DRUECKE EINE TAS 
213 CLS : PLOT 0.0: DRAW 255,0: 




" E5 ERSCHEINT BIN 6 


DRAW 0,175: DRAW -255,0: DRAW 




F ELDER CROSSES QUA 


,-175 


DRAT AUF 






u°™inT S0R 


DER U FELDER I au'*GEHE 


ZEICHENSATZ FERTIG DEFINIBRT H 


"druecken ■■ 


DIE PUNKT IONS TASTE 


UNTBREN ZBILE KANN MAN SIC 


173 PRINT 






'lOESCHEN 


DRUECKEN^I^NOCHEI 


215 PRINT " AUSSUCHBN WELCHES Z 
EICHEN KORRIGIBRT WBRDEN S 




FUNCTIONS TASTE . " 




180 PLOT 


0: ORAM 255,0: DRAW 






-255,0: DRAW 0,-175 




182 PRINT 




IEREN GEHT HAN AUF DAS ESTOPS 
ZEICHEN UND DRUECKT DIB FUN 




PLOT 0.0: DRAW 255,0: 


KTIONSTASTE." 


DRAW 0,17 5 




216 PLOT 0,0: DRAW 255.0: DRAW 
6,175: DRAW -265,0: DRAW 0.-175 


184 PRINT 


;" ESS 


217 PRINT AT 20 . 6 : "DRUECKE BINE 
TASTE" 

218 PAUSE 0: CLE 

220 CLS : PLOT 0,0: DRAW 355,0: 


S!" 


SPEICHER GELBSEN.D 


DRAW 0,175: DRAW -255,0: DRAW 
,-175 
240 PRINT AT 1,10;"S C R I P T" 
245 PLOT 0,159: DRAW 255,0 






250 PRINT AT S^^'STEUERUNG: 


EN NICHT 


VERAENDERN GEHT MAN 


5= LINKS 


SENS . " 


^ PUMKT "EICHBN LAS 


OB EN =7 FUNKTIONSTAST 


6SPBICKEP.- 


LOBSCHENS WIRD DER 


251 PLOT 0,100: DRAW 255,0: PLO 


GERADE ZU 


- SllSwZ 


T 0,103: DRAW 255.0 

255 PRINT AT 12,1;"ADRESSE DER 
ZEICHENSAETZE ": FOR N-l TO 10 S 
TEP 2: PRINT AT 13+NY3 , 2 ;XS (N) ; T 


ND DEREN 


AUSDRUCKEN n BICHBH 


AB 24;XS(N+1>: NEXT N 
256 PLOT 10,30; DRAW 230. 0: DRA 




0: DRAW 255,0: DRAW 


W 0,48: DRAW -230,0: DRAW 0,-48 


0,175: DRAW 


-255,0: DRAW 0,-175 


260 FOR N-28 TO 60 STEP 8: PLOT 

265 PLOT 0,0: DRAW 255,0: DRAW 
0,175: DRAW -255,0: DRAW 0,-175 


0,175: DRAW 


-255,0: DRAW 0,-175 


270 INPUT AS 

280 IF AS<>"40960" AND AS""435 




WIRD MAN CEFRAGT O 


20" AND AS<>"46080" AND ASo"486 


ADRAT GE-° K 


rE ZEICHEN AUF DAS QU 


40" AND AS<>"51200" AND AS<>"537 
60" AND AS<>"56320" AND AS<>"588 


LL.HAT MAN 








ZEICHENSATZ DEPINI 


00" THEN BEEP .5,-30: GO TO 270 


BRT ER- 


,7"Z TJZ, 


292 LET 1=0: DIM 1(8.81 * 
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294 11 


', LINE QS 

QS*"J" OR 0S= ,, j" THEN L 


€ 


O TO 2000 
O TO 2200 


Z"", 






600 


T R-RR: GO SUB 310: GO TO 


■R 


IF A=ll ANE 


B>13 


AND B<31 T 




,-175: 
LET Q-l 


,175: DRAW -255,0: DRAW 


740 


IF A-12 ANE 
GO TO 5000 


B>13 


AND B<21 T 




; "QUADRAT L.OESCHEN" ;AT 10,14;"SP 

BNSATZ SAVEN";AT 13 , 14 ; "ZEICHENS 
ATZ LADEN";AT 13,14;"CODES DER Z 

360 PRINT AT 14,14; ,, DRUCKBH" 
365 PRINT AT 15,14;"ZEICHEN ANZ 

WECHSELN" ; AT 17 , 14 j " ADRBSSEN" 
370 PRINT' AT 19 , 2 i "PERTIGE : - J 


HEN GO TO 8500 

HEN GO TO 220 
760 GO TO 600 
.1812 IF I(A-6,B- 


B>13 AND BC22 T 
1)=1 THEN PRINT 




SE 8 " AS 


RE ,P.AT 20, IB, ADRES 


EEP 


01,0: GO TO 


600 






380 F0 


R H-l TO 8: PRINT AT N+6, - 


s» 


IF I(I,J)«1 


"then" 1 


LET £)£« 




POKE 23607,P; PRINT AT 3,28;CHRS 


iois 

2020 


NEXT a 


mi-] 


..^LETR 




;"B" 

410 PLOT 0,140: DRAW 255,0: PLC 

536 FOR S-151 TO 144 STEP -1: L 
ET O-0+l: LET 1=1+1: FOR J=0 TO 


2200 
2231 
2232 


FOR 1-1 TO 
NEXT N:'nE: 


It FOB 


N-l TO B 




5S7 IF 


™"i"°;™;V,,™™ 


2250 PRINT AT 3,1;"IS7. 
18;CHRS Z: POKE 23607 
226o'lF'lNKEYS= ,, 5" THE 


DAS ZEICH 
60: PRINT' 
N GO TO 2 




601 IF 


INKEYS= n " THEN GO TO 60 


2270 


IF INKEYS= 


B" THE 


N GO TO 3 




602 PAUSE 2: PRINT OVER 1;AT A 




GO TO 2260 








'&10 LE 


T B=B+UNKBYS="8" AND B13 


T0 S 8 


IF RO=l THE 




KO=0: GO 




620 LB 


EY t=A+{lWBY$="Z- AND A<2 


2285 


LE? GE-GE+1 




FE-PE 1 




630 IF 


INKBYS="b" OR INKEVS--B" 


3000 


IF GB-96 TH 
PRINT #1;"Z 


EN GO 


SATZ SAVEN 




Lu« 


EN OO TO 1000 




H)" :ES 






► 
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flOOl PLOT 0,17 








255, 1 




8002 PLOT 0.15 






B005 PRINT AT 






8010 BEEP .1,4 






.1,3: BEEP .1, 
B020 PRINT AT 




;r zeich 



8036 

55,0: 

9010 



,-50: 
PRINT CHRS N; : 



5025 IF INKEYS-"A" i:K 'NKKVS-"t 

5030 NEXT U: LKHINT ; NEXT V 
5050 CO TO 600 



THEN 

3090 a 



> 8070 
B1O0 PRINT AT li 
HEN SOLL 

0,0: DRAN 6,50: 
V 0,-50 
8120 PRINT AT 1'. 



6002 IF INKERS- "S 

6003 SO TO 6001 
6008 PRINT I 
OESCHT" 
6010 FOR N-C 



JO LET N'N+iINKEYS="8" AND N< 
i8)-iINKEYS="5" AND H>32) 
1155 IF INKEYS="B" OR INKBY$-"t 



INVERSE 1;JlT 1 
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8160 




E 23607 
































8170 




M=l TO 


4 «e 


T M 




9010 


PRINT #l;"NO 


HMAL S- 




8301 


LB 


10<TlET 


T 5B= 


;H 


is 


9020 


IF IKKVS--B 


THEH 




8500 




SA-1: a 


OTO 






9200 


IF R-o'tHEN 


LET R-10 


f GO 


ET2E 


PRINT AT 1 


iron 






TO 9210 






8520 




HN-0: f 


OR M= 


TO 1 




9210 


FOR M-l TO a 


FOE M=l 


TO 8- 


ET 2 H 


11 


M-6 THEM 


SO 


UB 85 


0. L 


LET 


I1N.M1-0: NE 


T M: NEX 


T N 


8522 




E 23607 


60: P 




2+N 


9221 


ST0P UB 31 ° 


TO 600 




H,l;zS! 


E 23607 


v»i. y 


f«-rt 




9999 


P dri]eckem ::SA 


^SCRIPT 


save'- 








127; 














Nr: 




T N 








WW 


EN": PAUSE 5 


: PRINT 


#l;"VE 


8560 




NN=NN+4 




M 




RIFY 


ERIFV T " SCRIP 




#l""K 




? 


ecfce ein 


VJS 


«"?'» 




ASSETTENAUFEEICHN 




■ 



SPECTRUM* S»S *SPECTRUM 



INDIVIDUAL 
SOFTWARE 



SINCLAIR SPECTRUM - 




10 REM 


>>> MUSTERFILL <<< 




20 REM 






30 REM v 






50 rIm 


7100 Heilbronn 




60 REM 






99 HEM 


>>> Initialisierung 




101 REM 






120 FQR A f 


573401 GO SUB 700 
-0 TO 7] POKE USR ,, »"+t,Z~f i NEXT f 






=0 TO 7i POKE USR "b^'+f ,255*(f/2=INT <f/2>)i 






-0 TO 7: POKE USR "c"*f,S5: NEXT f 




150 PRINT 


3 Grafiksymbole wurden definiert" 




160 INPUT 


"Hit ENTER Start der Demo... "iaS 




199 REM 






200 REM 






201 REM 






210 CLS 






220 FDR 1 


=0 TO 250 STEP 50: PLOT 0,0: DRAW f,150s NEX 




230 DRAW 


0,-150: DRAW -250,0: CIRCLE 70,70,60: CIRCLE 


170,70,60 


240 FOR < 


-40 TO 120 STEP 20: PRINT USR f i 1 1 , f ,70,CHR* 


(96-f/20) j NEXT 1 


250 FOR f 


-1 TO 3: PRINT USR f il 1 ,SC+f «20,2O,CHR* (143 


-f )i NEXT f 


260 PRINT 


USR fill, 140, 90, V": PRINT USR fill, 140, 110 


"■" 


690 STOP 






699 REM 






700 REM 


>>! Erjeugerr M/C-Cnde 
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CnmpuWs Kci !akl?-3. 



710 


LET 


111=64512: RESTORE BOO 








=0 TO 11: LET a=0; READ fiS.b: FOR e=0 TO ! 








1-CODE a*(f»+l)-7*la*(s+l)> l, 9")-4B 








2=C0DE a* I o+2 ) -7 1 ( a* ( e«-2 )>'■=-) -48 








-Cl*16+c2i POKE fill+2Q*f*»/2,dl LET a=*+c 








>b THEM PRINT "Fehler in Zeile ";B00+f*lO 








"Zeile " ;B0O+1 *10; " O.K.": NEXT f 












800 




"CD791CFE2CC28A1CE7CDBC1CCDF12B1AD620DABA' 








"lCFE6O3B0FDb703B19FE15D2aAlCED4B7B3ClB05' 








"ED4B365CO426006F292929091B0A21EBFC47CD3B' 








"0B21EBFC22E5FCCDA22DDA9F1EC5CDA22DDA9F1E' 


,2861 






"AFBOE1B4C29F1E4SC50100182100401100EOEDBO' 








"2100FB22E7FC22E9FCC1CDA5FC2AE9FCED5BE7FC 








"AFED522007ED7B3D5CC3761B2AE7FC4E234623CB , 








■ , 9422E7FCODCDA5FCOCOCCDA5FCOD05CDA5FC0404 , 








"CDA5FC1BCCCSCDAA22E847043E010F10FD6FC1CB' 








■'FACBEAlAA5C01AB512i:BBftCBAAE5D5E05BESFC2i.' 








"007BE607EE076F19D17EE1A5£71AB4122AE9FC71' 








" 237023CB9422E9FCC 90000 OOO 000000 0000 OOOOO ' 


,1253 



Der Kleine mitder RIESENLEISTUNGs 
SUPER GLP 




Dateiverwaltung 
fiir Beta-Disk 
mit ISO-Datei 



gsncfeinem Suchbcgriff di 






Speicher dex Speclrum m 
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Poke Finder 

jkc Ho- —CODE). Tippcn ! 



I Spiel? (LOAD U.cS«in»t B 



1 


REM , .,,,,,, 


3 


REM ' * 


3 


REM 'POKE FINDER* 




REM " * 


5 


REM " * 


6 


REM *Uwe Steinweg Dortmund" 


7 


REM ■ * 


9 


REM * * 




REM - September 87 * 


11 


REM * * 


20 


CLS 


25 


LET c=0 


30 


FOR a-16334 TO 16384+319 


40 


READ b: LET c=c+b 


50 


POKE a,b 


60 


NEXT a 


70 


If c<>33658 THEN PRINT "Fe 


hler 


in DATA 1 !": STOP 


SO 


PRINT AT 10,0;"Bitts erst S 


85 


SAVE "pokec"CODE 16384,219 


90 


PRINT AT 7,0;"Zuerst das ge 








CLS 




PRINT AT 10 






c""CODE RANDOMIZE 


USt 


163B4" 




PRINT AT 14,0;"Henn damit d 


ar gewuenschte Poke nicht gefund 




.rd bitte mit POKE 16434,5 




POKE 16532,1 




RANDOMIZE US 




91 


PRINT : PRINT "V I E L G L 


U E 


C K !" 



100 DATA 62,2,305,1,22,205,77,1 
3,62,22,215,33,7,0,135,315,33,12 
,0.125 

110 DATA 215,63,80,315,63.79,21 
5,62,75,215,62,69,215.62,39,315, 
63.83,315,63 

130 DATA 13,215,62,13,215,33.5, 
93,126,254,53,40,7,35,124,181,40 
,73,24,244 

130 DATA 35,124,181,40,66,126,2 
54 , 202 , 40 , 12 , 136 , 254 , 40 , 40 , 7 , 35 . 
124,181,40,51 

140 DATA 34,333,197,62,80.215.6 
2,79,215,62,75,215,62.69,215,62, 
33,215,43,68 

150 DATA 77,229.305,43.45,305,2 
27,45,225,193,35,63,44.215.62,49 
.315,63,56,315 

160 DATA 62,50,215,62,42,215,62 
,13,215,24,173,6,31,62,4 5,215,5, 
120.32,349 

170 DATA 62,13,215,33.5,93,126. 
254,61,40,6,35,124,181,300,24,24 
5,35.124,181 

180 DATA 200,126,254,203,40,11, 
126, 254, 40, 40, 6, 35, 124, 1B1, 200, 2 
4, 235, 43, 62. BO 

190 DATA 215,62,79,315,62.75.21 
5,63,69,315,63,32,315.197,68,77, 
239,205,43,45 

300 DATA 305.227,45,225,193,63, 
44,215,63,48,315,63,13,215,35,12 
4,181,200,24,182 



Rechtsbuitdig schreiben 



"(LENSTRSsTO) AND « il;l "=" ^"-/"^'UbT 

Pir 7 Mihl fill- slcbcii Stt>n ,.!■.,■,,:;,: ..„j s [US weaEBt. 

•Mem): dtr Siting inuS oir r,;,,,^:;; : l ,lg Cr ]J e rmaBen am: 

, Men ■■ .■ ii, !i "i Jen ■ '■' ■ ■ ' '.'^. : = ( ' I _ li .'' 



Die letztc 



Liicken in Ihrer Programmsammlung zu schlieGen, 
bieten wir Ihnen mit dem Angebot auf diesen Seiten. 
Nutzen Sie diese letzte Moglichkeit. 




TI99/4A 



Atari Public Domain 



S^L 


sssrsssf 


£s£ 




4£. 


ss=ss=sr 








gsss 


»?JS25S1^SS!S 


s?« 


esse 


ii" 


5SX£^ 


SK^-SS^ 


™:"' 


sfe 


53™. 


^ErS^iS*. 




HH 


ss 


s 


™SU- 


'%■ 


ZSfi&ott 


S3M» 


as 


K^a 


Stt 



Chance 



Kassetten (soweit noch lieferbar) und Disketten erhal- 
ten Sie zum einmaligen Stiickpreis von DM 



10.- 




A ATARI 



■ . : .. ■ ■ ■ . ■ J ■..■!- ■ ' I '■•■ 

■ ■ ■ ■ ■ ■ ■ ' ■■■:■■■■ .■'.'■■:■■ 



iinclairr 






(Tiai). PAM-lnTlfig (7/871 
.V ■ I 1 1 



BESTELLSCHEIN 
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Sinclair - 




l 


>/ 





Liebe QL-Freunde, S7Z,J£2Z?Z 



, |„„|„„| m Moglichkcittn 



;u;l'ualiarkeLl (odcr besserc j^j 



SCLifipi; es Mofllithkcil iter SynilKiivciWi 



amjnc uiid m4ig]ielu[ w 



:G(Regi- AmtBlam 



Computer One 



(foBlichtcil des Upgrades & 






SINCLAIR QL 



■>&' 



CViipinei rin. da ci pcrftkl in nrnk-1. isi mil ilcm ' Lypinc 



Utilities = 

von Compware sb 



;nOL 









ai QL li" 












cHveumfsiIgreicte il " J ""' ""' '"'" ""' '"' ■*"»">* ispnroiinamreineSpsidierBr- 






lOKByieeiiinniM L2KKBy;c 






Dnilgermoor 

: i'ClEAMESSE! 
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grate. indakFol^wm^- 


E(Kon . DnlctErerfflogenlsB «. 


fjnem njch] cmeitsrttn Q L . 


************ 






Wii mill: SpL-IL'llur'pcsiWl.mufl 




























JJ— »*—«***» 






















uskbJk sj>eswr«na™ 


J" 1 .""' n^lNliuV 


Md^hirnd^h»I.M,Fn^vl B - 


den .'..Siiiw-Riij-isic™. Sie »(i 








(kiilllv: IttGlAJ) " -17odff 






Kl*i 111?! - iftk ..LSI ECU- 

»l1e Register plidcn Had, »inl 


52^!S£r5 


*^™^Sa*«. 


' 


'■'"'■■" 


"^l^S^««w'- 




ci[K;: l.iMkr..^'i pi.i^.'.iiinq-. 




iiieheii.Scraiifi.nt.auieiiiem 


■*■*"*- 


Itml'^'di.m' 1 ilmra ""' *" 


^££^££5^ 



Talent: Software «SSE 
aus Schottland! 



i SchaircninriiiKdiemch- 


i„j.|f|ii01. t! I -5itzcrohireFl.>p- 






















































VoMjedcrkcjmldenlegen- 










■' Tl " ■ 



Vnlfcrnen MiiuC 




II HloinlnT.^lH^ll 




■andcln, mil LC in 




aben. Bit-FuramleF 


matiwinSuptrllasicich^ibcn. 


*^n solchen die 


Onwohl die Bezeichnujiij 








Spiil klin"! ii.ni.'.ii ■.-■- --uli lnei 
















l,: f .,"«S"is" 









■Jcr 'ivk.ni]' iIi-t kni'm^Hil? 
nach der Original-' in iiiIl^ 
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DerlPC 






si craeugen o.a. 


K, .,:„■!,.„. K/.n^i'ldivn' Orcs 


INSO.CMD SA 


mat: 


















KO N Kiii-Chip-Mfcroprozessor. 


gdbcwirdiinrniitlich.l'T.'hi-.'T.'ii 






















' :, "HrHs," 


Wie funklinnicn 
die Kummunikatkin? 


B,TuD_CMD SD 


RSST.FE3 %KNXW««I 


munikation mm 68008 crfelgt 
















































kunde. Auflerd™ miisscn k-i 




Die BeTehle Im elnzelnen 










Sii^N-.-Nihl.k.jfUtk.lHnNib- 


































\V !■ I n Si '■' C'TRl ' AUtTdrtlk ' 


($18020). Dann warier- Mi-. Iji< 


JrJS 


SKsCl. "'" 




^L z SSt"^;^ 












a ° f tata n, ^l 1 If ' 


s™-^^^ 


Ssaiu- dor SlilFT-Toaen an: 








RDKH.Ar.T KIKlli 








AT.T-Tas.o 
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SHIFT-Taslc INSO-FRY 

turjwffei Dberftllli ist (Ta*t™- [JJjSd'jJ™ 



wrap 13 bt.winia i 
WcnnRANDOMan 






Bei spiel i.ur Sounderzeilgung 




L '256 = 300 
• 32000 



T.S. DatensystemecmbH 



'FattsSi 




DenisstraRe 45, 8500 Ntirnberg 80, Tel. 0911/288286 



-« SINCLAIR QL 
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QLiberator - Ein 
SuperBasic-Compiler 






* Pipe ilffncn. AuBer- 






ichwiniJigkdl gctil, dci h 



aitlkwjUenMugLLcliki'ilciiul- l''i'l S 



Zeilennununern 
abgeknipst 



Tips, Tricks, News 






I Quelldaici gcbelcn. Mir 



SINCLAIR QL 



AUTO SCREEN OFF 




I..!...,: ... ,:■ i ,■..;. 



3» SINCLAIR QL 
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£. ST"* „,...„. 




Basiti-Luder 










E.REITEMANN ^™™^ JBiw £ 



Computer Kontakt 2-3/ SB SINCLAIR QL 39 

Erweiterung des QL-Befehlssatzes 



■crTypdc, VuuM,,, ITngrarara im KESPR - Spei- 



Vurieidisle li.und- (lebrauchliH 



SamenialKlH; m(u»i. 
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Listing 1: Basic-Lader fur die 
Maschinencodcroutinen 



Listing 3: die Routine CALL 



Listing 4: die Routine DFPR 



f ABC Electronic 


' "J 


liaatfciraiw 10-11 














Sinclair QL Computer. 




inside QDOS 




srrs™^' 


«,- 


Olhetti-Dnicktr dm m <ni 


"'m,- 


C1VM -Emlator 


13').- 




QRAM 












^"I'id^M^^"''-^-',;,;," 


5«r 


SincUirSpedrumlM 












■t;; '!:, , "^; i, ogKB»«iiA 


330.- 














sJIfSSUrl ' ' 1 


aw,- 


CjnridstBrQLiMi.u.adv- 

















SINCLAIR QL 



ROM-Listing 
veroffentlichl 



■jllO'i l"l.'lmi|i,mi:n auKjK'li- 



(Jl.-llririel.™-,!™ (JIIOS '■on ullcr wichtigcn_l 



QL-Programm-Service 



Nl. 1 SolesenSieST-Chskettwi 

Hi. 2 Licnierduell 

Nl. 3 Super Shades 

Nl. 4 mjt* ep aek 

Hi. 5 unatttick im Cassettenlacn 

Nl. B Copy Shop 

Nl. 7 Bikjsqhimschonar 

Nli 9 Replace, Hardcopv, Update 



In der letzten CK-Ausgabe die SUPER-ANGEBOTE : 


I£2~KK===== SSBr-- 


.1 iEbr i 


~g£2<«- „_ M ^ H£&&£SKS3m.. 


■ubi^iiqwi;* "'7'' " "*" OL-Sottware 


Wagner Computer „o„, u „ n ,04 


2B41 Stelnfeld - Tslefon at) 19 Uhr 05492 / 13 11 
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Forth fur den QL 



(kii.-Sili.-111'ili J;:., l'nrili.:,l,jo!iiia- :-.■! ,:n,'.- Iniukm.ju.iriniii'.iriLV 
jettotinlc SchrciowcLsc .1.:, Ani.vcisiina.cn fclik'n. ailern sic 
"umiskchrtcn poliiischtn Nil- Icidu ;u iKI'iiiiemrsiiii]. Iljiufig 






Kompfficiungibci Biisi": 'Lea . Cranprter One Forth 






.■"V.-..-.J il'-i.il \<y.lc\: :■! ^.'kiin.k'-i; 


i: ,:'!r ;, „,v"';:" , : ri;; j! Ku-' 


Dir^V^lu'^'ot 


J k ™rVcrn*d 










S^S-oLp«.i 


E B^rf £ 


.-.- .. i^li-chc Handbnchffl 


1\ " U|VrBi 


^PulST*"""™' 1 ' 5 


!HKSH?3 


E!!m£2&.«mZ 


ffl^Tnttot^tot" 






'■ "M 




















.... ... i \. , 






Sii:- '-"ilialtcn. das sthr Ha.k 






Digital 








Precision Superfortli 




Ertuntf^nS pt 


r n k,!tT s ?lti',r'','S': 


^S^^K^ 


JSSSSSSSS& 


























































r Spracnke,-,, 
























tenter Standinf. der cincn 








1 Er^itcnniBcnsiixl 


■ ■' ... ■....■ . ■ 


SprSi: ;:/';:; 


^." : • 










,,-,! In.pl.m.nu.™™: 


^';irt^^co hc wird d ^ 


h ' M 7i 


SSvant^T' 










2. r>ich»l Precision Superforlh 


liefert. 


/.cm^ bimir Hie. uinr.md.jii. 


"Pi-uLi-JmraKren in FORTH". 



Software fur den QL 

In Deutsch 

Heute und in Zukunft! 

Vokabeltrainer 59:- 

Verbentrainer 49:- 

Faktum LC 98:- 

Neu! Auswahltrainer 49:- 



[Mulflple-Choice-Verfah- 

InKCirze! Lerntrainer 



79:- 



22 Bytes fur den Screen 

Bildsdiirmiohalt aus *™ Spd- dIn sg&f,. CALL , 
wi(l!m ' 1 judemiHtSchiTclLiekcil 



110 LEYTES flpl_ 



MIRA6U a§™SUT08 BRO 
bietet an : 

X CENTRCNIC INTERFACE 
ffgliHfenfcrfeits&eta,,,.. DH 89,00 
QL MODAPTW .. ; .0H 129.00 
QL QUADRAPRINT DM 89.00 

S12K MIRACLE m DM299.00 
JOYSTICK ADAPTOR 20.00 

P?^TvnTv!^| 

§L TOSWNE: 

Irtilwler «r SW.H tolrt» hUisrhr V 

t-J HI H4IJJ.I1 H HJI 

KUMnln *l H .N *«* «whr * 

K C K 2HM Find * 

*mmm m »■* c '""f •« * 

(s#lMl?*fttk ..M 7t.H Inula tn. ..H l»Ji 
li&tlu his it ... W! M.N EiiztllWmrt .... I* MMI 

"■ feHa II StJtl * l» ».H hwdlafiert ....Wttf.H 

!'! F**r> Sit Bsen fesialliste ■ MM 

' U'.ir Club t.U.,So ? h!eii5tr.S,464e (Mil 



10 i- WETIM infTrfliWiDtKl 

NfiCH KOSTENUORflNSCHLflG ! 

mmmm artikii: 

%MNi HiB ^ n wmuawi m 11,3 

(iiplHWniliMB m,H 



JEP0§0F¥" 



ftfiaistai sind BesleUiitftfi 2#i <*$ HmifDraitief to 1 nqlidi 
Hit (Irani ! SelisWitrcUni nur m± teU Uersinlmun ! 
Ijrwnti pr rBdndw ai Sells ttostan air Ub+iem uifrei ! 

bsdaijKiiiltalEtlfMlidintilll!!! 



Computer Kor-i.: I 



JAR! 



INFOS - NEWS - BERICHTE - REVIEWS - TESTS - PROGRAMME- LISTINGS - ALLES FOR AT 

Hallo, Atarianer! 



l dart, die sich phii™ 



d IZjahrigt piadimiiH 









1. Preis: GRYZZLES! 



■livorSicbefiniieTi.lcsi'nS 
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£S 



* 7FFEC003FFFFDDBBD5HBDBBBIIE 



A 7FFEFFFFB42BBSBDa£65ABB5B6ei] 



7C 3 EF E7FEFF7 C 7 E3C24 3C 2 43C 7 E3 
D8 1 BF FF FF0OF7C3E37EC 37 EC7C 3E 



! FO0FrFFBDC3BD7EBBe6BDEeBI17EB 



A 73CE7E7EFE7FFE7FPE7FFE7F7FFE 



« FF FF 9FF99 E79FE7F FOOFFOOFP £7 r 
DATA 7FFEFFFFB3CDBBDDBA5D824IFFFF 

ttamnett itatbW 

FFFF, 112.44,3 (fc 

■ ■ ■ :.■■.■■■■■ ■ . ■ 

E397FFFF7FFE.72. 12.3 g^. 



A 3C3CFF FF FC 3F3C 3 18FP 1 F FFFF3C F 



FE7FFFFFII BDBFE7FDC3BDC 3BFE7F 
FC 3F BF FB BB DC DHSB5FF45F FAD99B _ 
FFF FESB7FBDFBA5B3BDC 6 3C 87 E7E — 
E FF6FC 3FS FF9FFFFDBSBneG BFFFF 



A FFFFFFFF3F7C3C3C IB 



FFF PF FPFFC 3FE 71 7C 3C3C3C3E7E 7 
7E7EFF FP DB DB f P FFF99FFF FFD8 1 B 
' FrEF FFFF66FC B B3CFF3C F F3C BB3 
7FFE DE7 BE FP7 F B DFDA 5BD A5BFBBF 
6E78FFFPFF FFGE76FC3P PC 3FG E76 ' 
FBBFFE7FEC37BB: 



A FC3fFFFFFBDFBDBDEFF7EFF7BDBr> 



A FBBEF7AF7BEFFEFFF3£B7P7pEFBF 
* E73CFFF773D370737FF»'ECEPPSP 



I F73EF7FBBEDF7FFFOD»"F7pP0Ejp 



A 3FFI7BBFFBF7FDF7FMVPPP7703F 
1 F F335BE7F30 7 E7E3FF F 



A E7F7EPF7FBBEEEFFFBPVPFFFPFBfc 



FCFF5FB77BPF. 1 



FBDF BF FBFC 3F77 EED6B BB6SB77 EE 
BF, 96, 12,4 «. 

FC 3FFB7F FFFFPDBB 3E7C 3 I7C DB 

7FFEFC 3FB7E 1 EFF7EC37 EC 37EF 

■ : ; :\-FF3FeSF7BDE7BIlEFeEF Ut 

E7E7 FC 3P7BBEFE7 F B4 Z DB 42 EFE7F 

FFFPFFFFFeSFE7E7CeB3C663E7E7 

7FFEFE7FFE7FFFFFFE7FFC3FPB1F 



* 77DCFSFFBPPFEFBF7FEBSEB77Pr8' ' 



I 3DEEFFPBES373BFF7BEFEAEDAABB 



* 7F7FFDBDFF77B7BEFBFBB77FFBDF 



A 7FB7FFFFEBDEFEF7D7BFFBEBEF7E 



C7E3C FF3BF P BFFFFBFFBDFFBFFFF 
I PFB3C 3C 7 FF EFE7F FE7F 7F FE 
FC3FFE7F F F FF 7F F E3 E7C3E7C7FFE 
'l F FB3FFCTFFE7FF F.3 FFC 
E7C CF7DE7 BBP3 FFF77BE F6SC FFF6 
7C78FEFEF7BB7BEF3EEE3FBE7BF7 
7F FEFFFEEF3B EF FFE7F FEEFEFE FP 



J F33FF7BFE P [> r P F 77 DBO P »7 pril F B P 
EFFEFFFBBB'F(!rP77rTDEFP8BFE 

38FBFB FB F f ? B C 7»pp 7 p p p ? Fp Dppt 
'7F,144.44.t - 

FFFFBEFFEFE:'EPBBFFBB7ajP7FPF 
» 7EFE738FDl=FLF7F , 'EJ;-h-pppri- 
lBFE7FFFFB7pSE0DhPKPKPFE.h-p 

1FQC3FBF7AD8PPP«"IPSPFBPPFPB 
:CF,72.B4,4 ^ 

FB BF FF FFDB-. . B '■ » P =7 E tc 7 PP BE DPS 



7IFPDB3PPPPE.3 



3 BFOFEFC FFF E7 PEBCEBPF BFFFFFB 
F7 7BFF F FDA A FF FBEFFD BE BPFF 7BL 
3GFEFFFBDDAF77PFFD5FFFFEBAAB 



1 'E7CDAFE7BBBEFDFFF' 



FF7EFBBFF0BF, 1 



E 1 FFF3 F9F7F0F FFO FF F9F FF FF 



ATAR 



- 


Bbw— 


Iajari 




s^rsrss^; 



Hutacen Sis unser Angebot! 

Wir halter standig die aktuellsten 
Afari-Titel fur Sie berei: Dnr=-=t:l i 
nebensiahenden Bestellschein 
ausfullen und das gewfjnschte 
Bucti kofnmi ins Haus. 



>rW ff^., "II 









Iatari 


Hsrs^sSsss' 





;, s 





S£SS=2 


ATARI 



PS? Ve~rc 



.;, 


Sw^.B-»i .«•«*«« 


y|«sis^S 






BUCHVERSAND 






I 



D*. gn>n a SpWle&ucn 



i 






HP?! H 



Buch- 
Bestellschein 
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2. Preis: Macro-As 









IS in Speicher l.tiimlkhii! '.Jik:!. 



benen man hti|ik-ra iriScr. : 









ProBTBmmseltalisidi&i 



mSglicIi isi. DieOucll, 






Computer KaTtgct g-3/aa 

MEM erslc Pass (Durchgang) dknt 

rcvr^pi'id?£ilidTekh,Ll^iPi- -L'/l. <]|id Jk :[] ikn Linucyil'e 
£<J 6. scs^ 1:1 r '.'..-- i.Ut- .\,i"'^.iio IlLTj r.:'iL:i!lo'iiL^ LOlli^rfcn !iu- 



Speicheri die im Maknjpufltr Onerat 



■ iinri ilji kslmrt Program- MM - 



iiijthlassi.uiL' lasle.'die -iili in: Ansat'i i'.i.:r iin.-m Wliiitk i [[!d.pkl: l'KI NT-Funk Li on). 

linlcr, olicriHi Tasi n.irbc-.Mk-k sclekcicic .1;,. Hisli liyiu cincs 

horindti Gfriiuni iw die I'.US Wi'rk's (.-nispriclll h:im A I B,:lm 'M Mill- As' fchlllK 

2-Pass-Assemblcr J-Z?^'-" ^'"T ''^ C " !T .,.„„„ 







I 
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Listing 3 



ATARI 



Listing 4 



Computer Kontakt 
Programmservice 

Alle Disketten 
sind fur DM 10.- erhaitf ich. 
Beachten Sie Seite 28/29. 



ATARI 

221B Baker Street 



Computar Konlakl 2- 




k' .:■■,:.;; : .. . ■ 


: '^m BJfe^™^!'^" 






































umlEinnii.ligkdEaiifdemSek- 


F, a „LE™,c n 


Unter Zeitdruck ... 


...^avmamm**- 


^^^^^^_^_ 






















































■ ■■■; : ■■•■ ! . 




IIIIe 






















^ rit :T^|". .-V i:.: -!:'■ .,: i! L lk- lijl!-r,t|-.i 


















Hch'SlJdM&j 
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Llbcrrasehcjults tv scIil-ii. Oh 
sen. Bnua-li- l-.i,i- into ■ ■irvn 


|-.lK'i.i.-.-L'-.':Vr. S!..n--F] ; ^i,''\- 
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Computer Konlakt Z- 



ATARI 
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GroB/Klein-Schalter 



B asi c-Ladep nigra mm 



ATARI 



POWER 



kSOUNDMACHINE 



i ATARI POWER SUPERBUCH 



::■■<.. ;ex enkuche 



DISK ZU HEXENKUCHE 



kUISKZUh 

Best.-Nr.flT 

feATMASII 



BesL-Nr. AT E Diskette 49.- 

k ATMAS TOOLBOX 

... ■■.■■Q-M|MJ<B.ClHlO 






fc MONITOR XL 



| DESIGN MASTER 






DISKMASTER 






"SS 


— ~ 


feMASIC 








»""5.M = 


«.ro, a «kionen 


BtH-tfeXTtt 




48.- DM 


.; SCANTRONIC 






PJ¥»™i Clrab Pslmj,. a™t SB a 


ffiSSSSSS 


SS2&SSE 


Best.-Nr.AT14 




69.- DM 


; AUSTRO.TEXT 






anBoofco. Band 


iSS 


"^SB^DM 


AUS1RO.BASE 
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Assembler* isfing 



Kontomanager 



CHEN. Die EingaBc & 
chmigstfalen isi schnetf 
waltigen. bmiflgliciir wi] 



ilND 16NDEB LC3SCHKK 



C UKL ABSPEICI1EBH 



iklh.nJiuiis 'uI-.it '""ifiiiKf 6uc:i 
miaildinWiiiivon "N* Einnalien ! 









Schreibschutzschaltcr 
fiir die 1050 



ifi man die Floppy diirrhLO- MnidM, Kabcl 1 (Plus 



,cilcJiK[isl.mUs- tier Fall i'-lMihci-jwiil 







--ai°^J^L^.,rai 




MChr Berichte, Listings, 
Nachrichten, 
Tips und Tricks fiir Ihren 
Atari XL/XE erhalten 
Sie aus dem 
ATARI magazin 




Cfl osHafefi 

1^»V§ ■■ antm latiigen Qra, 

^^ ** J XL. 19-0isuilufer 



Endllchl Zwei neue deutsche 

Textadventures, 

die Sie be gei stern werden ! 

Alptraum 



»DM 39," 



Software-Bestellschein 
















































Is 


^SJSSHL 


-' ==:;rrr 
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Computer-Lexikon 



h af^L 


... 


B ^L—™.''" " 


'Vnt^ 


Spaghetti-Code 






Schleife 


SpriinL'hclilik'ziiirktniiL'iijiihuCiOrOj.Sok-IH' jiishuuisn. 




Li:ik'il.«r.\V'ir.i;m;!nir...-iiii'iTi ■ lassi'ili..n Pr.^iiimir,. Ja- ir- > 


Jl-i riarslelluil" i-mcr Poriifsi KpHfhelli (jjc s.l- 1 1 1 »-■ lita ! K Bill. 




Sprite 



Simlcubcrdci H.r.ier t ™,J lun.^cl. ,z .-> '.. Spidii: , 

Store mmAaiongarao.DKS-Bil-Al^isbeatandK-pi.rer-^Han 

. Urara^HhcSynmm.M'uj -I'mki^-H".., U,> ,1a. L-t, OKHti.; Er- ware-Sprites. 

feism'aobemmm ™ Ik. fc uc Stack/ StapeUpcicacr 

ilic Auffisl Ling (lei "Kekordc". Hiertci hajltteHeinicti urn einrri btsundiTm S|V elierhsreicli. 

Orfwnisation il-'-. Smjc'ss -inch Jem LlJ-'O-Prinzip (Lao Tn, Fir 



SpmalsGuglhupfl-Kuche 



.1. ,. ,■. :■.':■■. Ml.!:.'' 'I lli ( .!iiiii<-.mMlhL I -.!.:.j 1 ir.r.,-i:iSl.,rll. 

kclK.Casseiie...)i5[ci R cnlliclirnirV^|» U :l 1 ..ie durehem nderzweiMopptuti. 

Sourcecode Sloppbil 



lauIIdhiEC ProgrflTiim 



Computer KontaM2-S/B8 AIAHI 71 

als Siring iMseithiKLAothoiii Name isnin String. I Jm eiiiinSiriii j wi„i -Heser flcpiff in Maillin.cn. ll-n .in J altc Anrufcr, die dem 
711 ipcicherrt, v e™enifcl n.i.n Sfrina Vaiil. Well, tor ;r:ifj.-n Jin Sv.k-in inmi.nliii'h bftanil! JL-.ld Mm ' .illiin.MI; zuden Gaatcn). 

Utility 






Tracing 

eriedigt wcrdci 

■ ■ . .. . ■ . .■ . : . ■ . : :■■ .;., , . 



J G ■ u [i a I LTsp:,? I ^n gilt, bczdchncl man ai 



lVkaiin<L^nF5;.n.[in'icMri'iili.:AK;ii].-k;:i--i 

feriJePruj;r-.iiii.u , '.".:...^nini;cil'i.iL'icri.[>ct8-Bit'AtarilM 






nputerKontaM2-3. 



™J™ Einsteiger-Ecke !|f2^!SS 

Is Li.ng- Von der Tas|a(llr 



Nathlriige 




in Heft I2/I-K7/S; 
































"''"'ra^ur' 1 ""^'' 


fro- 


Di.pliiy-Lisl-Rou.m 


,Sr- 










sduifl "Zcik- 1100"; . 












ik-hiia-- Zticlnin I.HKS('<k 






e ebcnCHRJ(65 + 12 





Nachtrage zuin Lexikon: 



*lJ^ W j^S Leser raft Leser 






..','';■ :;,■. ■■■.... ■•-■■':■■*■ ■■■■■■ ■'■: ■■■:■■■■■ 

■Zri- be(TheALJENgroap,Madein 






DruckcrTXP-HKHF 
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Leserfragen 



SpruKhenhne Hardware? ■'-'-"' MnHu'im'K. 

Idl IliiCte «,„. S^R-, ,.b,, ■ Vl '' J "'- ' 1 "-' fe ' "' 






linenrouaJ aS'"w™«-«em 


,\,bv\lu< -i..r: f.JivAj:™,-™..- 


H'cnn man f.e*n)H. <!njl a* 


j™,™,,;™*,^,,,, 






















'<„«!. bi,;f:^l!,ir[iSii,/,- H,'.:.' 












.. phnnnlKke, Alphabet at- 


















( v .j V F-.'fi'.i r,-.w -r.- mtfcti.eii 








hi. Uaiiaii.'i.v-.iiifl'i't.'l;.-!!!,, 
































Vokabcllrsuier, Atari 










,ii, S/ieirlvi;-rt,M-nii[i t liMJ!iir 






Zeichensatz 


"WAX .Wi«i9^,«. 


»!(!i*. v ; - iM -*■- j:'=-ji 



KM iwj(Kc:*(o!scn >uer- f"H" a >i- D" HH^ftWH* /'O- 



ic-Programni inii POKE Be r-v,i.-,:,™ .■„, tmfachc, !t.n,,;rl 
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llnbekannle ATMHmflgarin iri gciiugauf 

rffc .W ms .;..T,'. f,il 3 /i<d,-rn:a- yuniuiit fiinlluvir. Al: Hal t lup p) -B etehlt ? J/ilrmv »,■«■»! (.r,„ s ™ i-ri.Vf.'i 

Penhdfin: Aon* mon folgmdes sagcn: A , lsc heincnd vcrslcht mein *» ««* rtamoKfo .ii.-.W. 

PUKZDL.D-H2& '^rr,;,).:Z,l;'^.;:,-;„:-,.j>; ^^^^^"^^k{ Hardeopy auf CX-«9? 

BTX m XL? m Sem rT"ii 'TvS Un,cr dcn bci ' ,cn ' FDrraa " cr - lth lw ' iiL " : *■' lai, « HI! 



™* .™w ««„■«((-■«<■* .-»., >och einmal MJ.DJ. lW , ; „„„ '.„„,„,„: ,',„ ; ;,, c ,,„, f 

■:.-, .-: :■ ' : -.-.i- :■■- ■:■ ■ ■ ■■ ■... . ..,.,.,,. . , . ii. ,., .■„,.,.,. ........,.;.., .:. r... 

Link-ByiE zostori) asit^-m- ,,,, ia.,,,,,- .ti„„..:,)fc Or ,-, „'„• , 1T1 ^ Ji;11 . ilBn tusiiTi udtrcin rrtgZnm &mi ZnZl ™w 

weitertamiB™, ubiK Lvfiir.-h- 'v,' r, ■,■■!: ,".- ^'k/i'.'r.- K l.ui^ bin "ich mi!' mebec Plonranr ""mm*^ 'ft'iT 

ten m mllsaen, daB rair wJtr ;„■„„■,-,■„ rw,v „™l A.,-,/, rn j, [kiirvf „ 11(K „ nichtsn welt Sw „„fi.".rf™J-*,L»™J« 

Files a«r dime W*i« valor™. j,f; { ,, ,„„ /,-,■,. «,„ i-,„.,^..,-.r;Vf MincKliriueii daB ich da< -a 

S*™' MWM m./AfWI «>jg«Eto/r«. Ih^nveroifcmlKbK M.I.D.I.- ,.«,;„ f -"L ' <c,rlmven- 

I b eichntn.lasenlspre- 

'-'"" """ "'"■ '"'■■ ; ■"' kaufsn? c*<vi*«™fifc:t'JWi<;n UYMurf 
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MASTER OF BYTES 



Die "Masters of Bytes" treten hervor! 




Senso - Altes Spiel in 
attraktivem Gewand 
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Tastaturpuffer fur alle 8-Bit-Ataris 
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Tastaturpuffer 
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1 HEN 1 iMtitUXbitl-.t Hi 154 STbI 
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s peh ; f^ii^s^'i 'tr'iinv \ *si 


Line-Ex 

iMKJT v '„. w 

32061 ? -BIS ZE1LE .-;:1MPUT B a.F? 

32882 POKE 752.2=F0« T=V TO B S» 

32884 7 T"" ; CDKr- T "^ 

mil f°kI i" , !i' END IP 

32688 NEKT T ' fjjjF 

51!! L. T ' 7 " C0I,T- H 

32815 POKS 942 13 EHD ^^ 

™!U L^JI*-... .. „.,„ Hi 
32620 7 Vkf' ' ' s'fHI I 0^- 


1 ss i^isyr" sc "i it 
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Die Wiirfel sind gefallen! 



In Computer Kontakt Nr. 10/11-1987 hatten wir eine Leserumfrage 
veroffentlicht. Wir danken alien Lesem, die daran teilgenommen 
haben. Leider bestatigte diese Umfrage unseren EntschluG, Computer 
Kontakt einzustellen. 

Knapp die Halfte alter Leser sind Atari-User (47%), die andere Halfte 
errtfallt auf Spectrum (23%), QL (12%) und Tl (18%). Erwartungs- 
gemaB wenden sich die Atari -User verstarkt dem ebanlallsin unserem 
Vedag erscheinenden ATAR I magazin zu. das ja ab sofort monatlich 
erscheinen wird. So nannten 81 % der Atari-User das ATARImagaz/n 
als itire wichtigste Zeitschrift. 

Die Tendenz zu leistungsfahigeren Computer! wie Atari ST, Amiga 
oder PC ist unverkennbar. Bereits jeizt haben 14 % der CK-Leser einen 
zweiien Computer, weitere 22% planen in absehbarer Zeit die An- 
schaffung eines neuen Gerates. An erster Stella wurde der Atari ST 
genannt, gefolgt vom IBM-kompatiblen PC und Commodores Amiga. 
Bei den Tl-Usem steht der neue Geneve hoch in der Gunst. So ist ea 
abzuaehen, dafi der "alte" Spectrum oder Tl 99/4A zwar keineswegs 
zum altenEisen kommt, aber eben doch nurnochdasliebgewonnene 
Zweitgerat sein wird. 

Computer Kontakt verfugte iiber eine besonders Irene Leserschar. 
Jeder fiinfte war von Anfang an dabei, nahezu die Halfte liest CK seit 3 
Oder rnehr Jahren. Viele Leser zahlten Computer Kontakt zur wichtig- 
sten Computerzeitschrift. Da dieser Leserstamm aber kleiner wird, 
wird CK allmahlich die okonomische Grundlage entzogen. 




Aus den Einsendungen wurden 
folgende Gewinner ermiltelt: 



Software-Preise haben gewonnen : 

Thomas Dietrich. Weedgasse 1-5/10, 6360 Freidberg 1; Klaus Germann, Posttach 12 58. 2930 Varel 1; 
Rurnd Goldenbaum, Vogesenblick S, 7814 Breisach 3; Jurgen Meidenreich, An der Kurhesssnhalle 7, 
3500 Kassel; Jiirgen Pix, Dahlener Str. 395, 4050 Monchengladbach 2; Tobias Sunder Plaflmann. Reh- 
wisch 15, 2056 Glinde; Lucien Vuilleumler, Tagetlistr. 14, CH-3072 Ostermundlngen; Axel Wethje, Wer- 
ner- Kam man n- Str. 17, 2190 Cuxhaven 1 ; Herbert Wotter, Unter den Buchen 14, 5144 Wegborg 3; Andreas 
Wulf , Im Junkerstuck 26, 5400 Koblenz. 
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Dieneuen ™Z°"*" 
Games: El «* 




Neul Zwei doutsche Grafik- 
aduenlures. Echt super! 

» DerleiseTod 00 _ 

« Alptratim je Disk. 09l 



Adventures 



Friihlingsangebote -nursoiansevomit 



.15.- 



fp Q 07252/86699 

»§== Software-Bestellschein 

Ich bestalle aus dem Diabolo-Versand folgende Software: 



Computer Kontakt 2-3/6B 
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« • _1 rWt ■»?__.__-, -1 — 1 WIDTH HO auf SO-Ztitlicri- OFF-BcMil BowiHil 

Liebe 11-lreunde! d™. m,™.™,.*.., 

DSKX. l.-gi man d» Ljiiiurrl sell if me ride. Es j-ibt n 

lie haltd Ihr die lelzti- hciirauu liis Inn ?ij !ilicT»Lrj!tnJ fi'si. mil Jl-mi n;.r luirmnk™;!- Menge weiterrr Aroc 






Cr;rmii s lk-lilcs.ciii30- C RAM-Simula 






MilartieJt hedanfcen, die von D.'dldiHI.? inuLi Ja^ r'[ir:i;n Zt-uskiihi i?:i^i sn^c^.'ind- 

°" hl "!' n " er || H ' h . "SPAnx 1 ! 

Neue US-Software «*~Sl'I=2 K2S 

' ' ' ■! :■■■■'■ .■:■ :■ : ■ . 

Die Pro £tii mmi.'j^r ien<ei> :i.-imk. de! 'ikAM Km.^vi Object-Code und mil LI.'AL? ^ (| ^ ^ h n||| , 

wiedcralleMiilie segch-n. iliv 'mdcrlkb "4A/T)OS" srclll ei prolamine zu lailiin mid zu yK . ... ... !._„_- 

Tl-Uscr zu v.r...r,;,„. >.,-lvii -.. e:iite l™ ( !(c™i;fc II- miitkmi. KEF brai E > alle im , .„,.,„ ):il ,„ „,,,„, 

■prechend aufetmacM, abei dent im tiliAM SpdcrKitic- M.scbineriutllerpTogre 



posMviiHAuEfi. trfcbtflskBHe, die ^^dem Jj™ Von^mmandiH'wic 
Laufvrcrk I i* 1 Kf:Y, MOREONMO- 
4A/DOS ™,B.Na=h <l,m ',.,!■ 



a Fiugfigurcn *ie Salto, 



flicgcn Angriffeaufdie M 
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Mocful. Dd5 Programii 



(nit JliihcniiKsss 



Stone-Age 



.ll A|.yp:c[i. unulorliiii 






200 !* KONFIQURATIDN: 

210 !* - KONSOLE 

120 !* - X-BASIC 

230 •* - JOYSTICK 



1 einigi Prnhcfllige * e ."' 
a Ubungerf bc^rehl p ' 






2B0 f 

290 r 

300 CALL CLEAR : i CALL SCREE 
N(15>:: RANDOMIZE 
310 DIM Z(31),Z*(1S),Y*C4>- ■ 
FOR 1=1 TO IB is Z*(I)=RPT* 
<■ ,31) si NEXT I :: V=-31B7 



M Kontaki 2-3/88 



340 CALL CHARC95, "", 104, "FF4 

444FF11UFF44" , 1 12, " 1C265F5F 

7F3E1C" , 120, "5A5AFF66DB66FF5 

A" , 96, "576AF5BA6653FE96" ) 

350 FOR 1=3 TO 7 :: CALL COL 

0R<I,2,16>:: NEXT I :: CALL 

COLOR (2, 16,2,9, 16,2,9,7,3,10 

,2,8,11,14,2,12,4,23 

360 GOTO 380 it At,A,B,C,D,J 

,K,M, P,R,S,T,U,W,X,Y,PA,PB,V 

A,XA,YN,XN,X.X 

370 CALL HCHAR : i CALL GCHAR 

1 i CALL SOUND : : CALL CHARE 
ET It CALL SPRITE :: CALL DE 
LSPRITE It CALL PEEK ;: CALL 

KEY 
380 !1P- 
390 RESTORE 1B70 !! FOR 1=1 



I 17 I 



DISf 



NEXT 1 

400 CALL CHAR(64,"7D20213921 
2 1 2000200025222 222D200 000000 
B 1010100002 02 0E3242724D3" ) 
410 CALL CHARC68,"0OOOABB4A4 
2424000 F0AO20 202020 2 0OB89 1 
i 3 1 1 3B00 1 B25259C 4043 B OO " ) 
420 CALL CHAR(72,"C12122E624 
2SC BOOOB 1 B2B 4B7C090 9 002 5 50 
B BFS04 4 000000 B 9 8 A52322 1 000 

0O945A524292") 
430 CALL CHARC76, "0000943A52 
529200F08083E4B484F300") 
440 CALL CHARCB1 T "B08QBC9292 
BC 5 20COOOOE5 22 6 2 A 252000 1 QOO 
8000000100") 

450 CALL CHAR(84,"9692A2C2A2 
9 29600900065929293620204 0A8B 
5C4 888080806 027292F2827 6 00" ) 
460 DISPLAY AT(20,2> : "SABCDE 
FGHIJ" ti DISPLAY AT<22,15)! 

470 CALL CHARTS, 1 '1824242424 

2418000818080808081000182404 

1820203C001824040B042418") 

4B0 FOR 1=1 TO 100 

490 D=112 :: GOSUB 1150 :: I 

F D=0 THEN 490 

500 NEXT I ;: DISPLAY ATC24, 

19>i"MQRSTUVW" t: FOR 1 = 1 TO 

IS 
510 D=120 i! GOSUB 1150 It I 
F D=0 THEN 310 
520 NEXT I !E FDR 1=1 TO 75 
530 D=104 :: GOSUB 1150 j: I 
F D=0 THEN 530 



540 NEXT I 

550 CALL CLEAR I I CALL COLOR 

(2,16,2)11 CALL CHAR(52,"0B1 

B2a4B7COB08007C407B0404443a" 

560 CALL CHAR(54,"0ClO2O3S24 
241B003C24040808101000I82424 
18242418001824241004083") 
370 CALL CHARC64, "FFB1819999 
8 1 B 1 FF000000000000000044A4BE 
4424A54 20000002556565424" 3 
580 CALL CHAR<6B,"000119A8BB 
A 1 9800 B040 0994505 48800 000046 
AABE88860000006AABE9B969" ) 
390 R=R+1 it T=0 
600 CALL CLEAR : : D=0 : : ON 
R GOSUB 610,620,640,660,970 
!! IF R=l THEN 680 ELSE 710 
610 RESTORE 1180 :: READ At 
:: CALL CHAR(72, At) : : READ A 
S :: CALL CHARC76, A*) t i YA=2 

I! XA=! t: C=15 M RETURN 
620 RESTORE 1210 :i READ A* 
:: CALL CHARC72, AS) t : READ A 

* II CALL CHAR<76,AS3l! YA=2 

1 ! : XA=2 I! C=15 

630 FOR 1=2 TO 31 :: Z(I)=-1 
:: NEXT I ! ! zri)=l i : RETU 
RN 

640 RESTORE 1420 i: READ A* 
:-. CALL CHAR(72,A*>id READ A 

* ti CALL CHARC76,At)i t READ 
At j: CALL CHAR1S1 , A*): t RE 

AD A* I) CALL CHAR(85,A»)i : 
READ AS :i CALL CHAR (41, AS) 
650 VA=12 i: XA=16 it C«72 I 
! RETURN 

660 RESTORE 1650 :: READ A* 
:: CALL CHARC72, AS) : : READ A 

* t: CALL CHAR(76,A*)n READ 
At it CALL CHARCB1.AS)! t RE 

AD A* |1 CALL CHARC85,AS) 
670 YA=21 :: XA=13 !J C=33 t 
t RETURN 
680 CALL CLEAR : : READ At : : 

FOR J=l TO LEN(AS)tl CALL H 
CHARI3, J,ASCCSEGtCAt,J,l)))i 
: NEXT J 
690 FOR 1=4 TO 21 :: FOR J=l 

TO 31 :t CALL HCHAR ( I , J, A5C 
CSEG*<Z*(I-3),J, l>)):t NEXT 
J :: CALL HCHARCI , 32,90) : : N 
EXT I 
700 READ A* : : FOR J=3 TO 32 

II CALL HCHARC22, J,ASC<SEGS 
(At, J, l)))tl NEXT J :: CALL 
HCHAR<YA,XA,B8)ii GOTO 720 
710 CALL CLEAR :: FOR 1=3 TO | 
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22 :: READ A» ;: FOR J=l TO 
LEN(A»):: CALL HCHARCI , J, AS 
C(SEGICA*,J,1>)> !; NEXT J :: 

NEXT I 
720 GOSUB 1160 j: If P THEN 
P=0 J! PB=XX !: GOTO 1110 
730 CALL KEYCO,A,B>:: IF A-l 
24 THEN 1130 

740 CALL JOYSTd.X.Y): j XN=X 
A+X/4 ■■ YN=YA-Y/4 :i IF <X= 
0)AND(Y=0>OR XN<1 OR YN<4 TH 
EN 720 

750 IF ( X< >0) AND CYOO) THEN C 
ALL GCHARCYN,XA,A>is CALL SC 
MAR<YA,XN,B);: IF AO80 AND 
A096 AND BOBO AND B096 TH 
EN 740 

760 CALL GCHAR(YN,XN,A>: : ON 
<A-72>/8 SOTO 790,720,790,7 
20,770,1010 

770 IF XN<2 THEN 720 ELSE CA 
LL GCHAR(YN,XN+X/4,A) 
7S0 IF A=aO THEN PB=XN*X/4 : 
i CALL HCHARCYN,PB,I12>n CA 
LL HCHAR(YN,XN,BBJ:! CALL HC 
KARCYA,XA,BO)l: P=l :: XX=PB 

1 ! GOTO 810 ELSE 720 
790 CALL HCHAR<YN,XN,B8):: C 
ALL HCHAR(YA,XA,80); ; CALL G 
CHARCYA-l,XA,A):; IF A=112 T 
HEN 810 

800 XA=XN : i YA=VN J I GOTO 7 
20 

810 FOR J=YA-1 TO 3 STEP -1 
:: CALL GCHARC J, XA, A) ; : IF A 
-112 THEN 830 ELSE 800 
820 'NEXT J j : GOTO 000 
830 PB=XA 

840 PA=0 || FOR I=J-H TO 21 
:i CALL GCHAR(I,PB,A):i IF A 
=SB THEN 900 ELSE IF AOBO T 
HEN 860 ELSE CALL HCHARtl.PB 
,112):: CALL HCHARCI-1 , PB, 80 



B60 CALL S0UNDU,-2,0) {! PA= 
PB+Z(PB):: CALL SCHAR<I-1,PA 
.A>:: CALL GCHAR<I, PA,B) : 1 I 
F A=BO AND B=80 THEN 880 ELS 
E IF A=BO AND B=BB THEN 900 
ELSE 690 
870 IF A=88 OR B=88 THEN 920 

EL3E IF A080 OR B< >80 THEN 

890 



S0UND(l,-2,O):: i: Z{pB)=Z(P 
B)*<PB>U-(PB=1)! ■ PB=PA ii 
GOTO 850 

890 Z(PB)=ZIPB)*(PB>l)-CPB=i 
):: PA=PB+Z(PB>:: CALL GCHAR 
<I-1,PA,A>:: CALL GCHARd.PA 
,B>!: IF A=80 AND B=80 THEN 
8B0 ELSE IF A=80 AND B=8B TH 
EN 900 ELSE 820 
900 CALL SPRITEm.l^.^.B* 
I-12,PB*8-7-<5*(Z<PB)=-n-5x 
CZ(PB) = U3*i:pA<>0),#2,Ba,16, 
8*YN-7,B*XN-7) i[ CALL HCHARC 
I-1,PB,S0) 

910 FOR 1-1 TO 20 :: CALL CO 
L0R<#1,14,#2,2):: GOSUB 1140 
:: CALL COLORCItl , 2, *2, 16) 1 1 
NEXT I : : CALL DELSPRITECAL 
L) v 

920 CALL CLEAR : ; CALL CHARC 
72, "EOSlV., 

1 BBO 0008 B88 A9 A A5 1 000000 
A894909O5OOO" ) 

930 CALL CHAR(7fc,"OO0OB9eAAA 
AA510031 10189494 94350080808A 
8DB98989002000642A2S2A6400" ) 
940 CALL CHAR<B1,"C242675252 
53D2000202324222 1 06200 ■ ) 
950 DISPLAY ATC10, 9) > "HI JKLM 
NOQR" :i CALL HCHARt 15, 1 1, BB 
,11) II M-M-l 

960 FDR 1=1 TO 500 :: NEXT I 
Ii DISPLAY ATC15,9)SIZE(10) 
:RPT*CX",M) :; GOSUB 1140 li 
FOR 1 = 1 TO 500 i: NEXT I i: 
IF MOO THEN 600 
970 CALL CLEAR : : CALL CHARS 
ET i : GOTO 990 
980 CALL CLEAR : : CALL CHARS 
ET ii DISPLAY AT<10,8);"GUT 
GEMACHT !" 

990 DISPLAY ATC12,7):"N0CH E 
JN SPIEL?" 

1000 CALL KEY<0,A,B)!: IF A= 
74 OR A=106 THEN 1130 ELSE I 
F A=78 OR A=110 THEN CALL CL 
EAR :: END ELSE 1000 
1010 D-D+l :: IF DOC THEN 7 
90 

1020 CALL HCHAR(3, 13,65,203 
1030 CALL CHAR(75, "FBAB21222 
22221001010399Q913A1100I80B8 



1040 CALL CHARC72,"F9A923212 
1 2 1 23000000542A2A2 A2AO000007 
393E0B373")i: GOSUB 1160 || 
U=0 tt S=T/50 :: DISPLAY ATI 
3,13): "AAAHIJAAAAAAAAAA" t 
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Computer KonfeKt 2- 



V* lR)=5TR*t: INT (S/60 >!?-." 
■■'&SEG*(STR*<100+S-60*UNT<S 

ij),2,2)fc SiSESS<STR»(10 

0+<T-50*INT(S)>*2),2,2)i: DI 
SPLAY AT(3,29-LEN<Y*CR>>):YS 

at) 

1060 U=U+T :: S-W/50 :: Y*<0 
i =STR* C INT (S/60J ) tt* I " 1.SEG* ( 5 
TR» aO0*S-6O* ( INT CS/60) )),2, 
2) £." ! " t<SEG* < BTRS < 1 OO-f t U-30* I 
NT<S))*2),2,2) 

) FDR 1=1 TO 500 :: NEXT 
i CALL CLEAR ! : CALL COLO 
R(2,2 r 16> 
10SO DISPLAY AT(3,12): "HIJ" 

i FOR 1=1 TO R : : DISPLAY A 
T«B*2*«,«»»STR«<I->V. "jTABt 

J-LEN(Y*a)l);Y*(I): : NEXT 1 

1090 DISPLAY AT<7+2*I,45i"KL 

rt" ; TAEH 17-LEN(Y*(0) > ) F Y*(0> 

.00 CALL KEYCi,K,D):d IF K= 

i THEN CALL CLEAR : : CALL C: 

0L0RC2, 16,2):; GOTO 590 ELSE 



.100 



TO 21 



;10 FOR I 
. GCHARCI,PB,A>:: IF AOBO T 
HEN B60 ELSE CALL HCHARCI.PB 
,112>:s CALL HCHARCI-1 , FB, 30 



,120 r 



] 920 



LI 30 CALL CLEAR : 
1140 CALL SOUND(50,550,5):: 
RETURN 

1150 J=INT(RND*557+1)!J A=IN 
11)11 B=J-A*31 + 1 :: IF S 

EG*£Z*<A>,B,t><> THEN D=0 

:: RETURN ELSE Z*(A)=SEG«(Z 
1,B-1JS<CHR4(D)&SEG*(Z*1 
A),B+l,31):i RETURN 
11E0 CALL PEEK(V.S):! T-T+S- 
U-255*<U>S>:: IF TOOOOO THE 
N U=S : : RETURN 

) CALL CLEAR : : CALL CHAR 



SET I 



"ZEI 



■ ABGELAUFEN" :: GOTO 930 
.180 DATA F88B122242BAF90004 

A 5C4 a4S4B 2CO0 0602E 222E 2 A 2 76 

OOC04040404040CO, O 
1190 DATA SABCDEFGAlAiAHIJKA 

AAAAAAAAAAAAAA 

1200 DATA YYYYYYYYYYYYYYYYYY 

YYYYYYYYYYYYY2 

1 DATA C 040 4 2454 555F 20001 

O 3 34 9 4 93 1 4 B3060202 4 29302864 

001 2 I 2 1 2DE 1 2 1 2 12 , 00004 AA5A4A 

44400000051 2A2 2 222 10000 00289 

490901 

1220 DATA §ABCDEFGA2AiAHIJKL 



300 DATA Ph'hpti'J 



xhph'l 



310 DATA F 
Pphi ' p 



Ptnhhph'ph'h'f 
! PPpZ 

330 DATA 'pppphP'hPh'i 
ipPPppZ 
DATA p' "phP'h'h'I 

ipPpppZ 
DATA ppppphpxl 
h"hP" 'Z 
i DATA hhhhphhhhp ' 



\ phli'hxphh'rihpPri"h 

I'p'pZ 

i pPPPh"hp'h"hPhph 

i-p'pZ 

I 'PPPhp' 'hPh"hPhph 



I'hhPhhp 






j'PPZ 



"hp'l 



'hhti 



l'hPP" 
DATA h'"* 
hhPPPPPPZ 
DATA h " " 
hhPPPPPPZ 
DATA fi ' " ' 
Phph 'hPhPPPPPI 
400 DATA InX'"' 
iphP'hxhxvZ 

DATA YYYYYYYYYYVYYYYYYY 
YVYYYYYVYYYYY* 

420 DATA 6020262A2EA84600&0 
206 3 AS A 7 A45 3 00000 502S 202 020 
0040AOe44A2BAA4400,C040S5S25 
252D200120237921213320020207 
0202 0302000C04 04 B5 06 1 5 2C9 
!430 DATA 00 00 94 9 A929 2520000 
00 A D09 909000 6020 6 3 A 5 A7 A 453 
00 00 005 02 S20 2 020 , F050476 1 434 
5C200301O13141211B6000&02235 
2425226 

.440 DATA FFFFE757475F67FFFF 
F 99 7 5B 1 D 7 39F F BF FF2B A5 AD AD2 D 

i iABCDEFeA3A:AHIJKL 
MN0aRSTUVl4J*+A 
1460 DATA xp'Phx" 'h"p"x" 
"PPP"' "" 'Z 

1470 DATA 'ph 'hhhhphp'x' " 'h 
hhhhhhi'hhhrihPZ 
14B0 DATA 'ph'p"* 'Pp' '*"ph 
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1490 DATA Pph''Pp'PPp 

PhhhhhPhhhhh'Z 

1500 DATA "phpP"PPpp 



1510 DATA 'plipp'PPpp'* 

'p'x'tipPPPPh'Z 

1520 DATA 'php'PPpph" 

hlihhhhppPpph 'Z 

1530 DATA 'ph'PPpphhp' 

i ipp. "p^pph'Z 

1540 DATA xphPPpphh'" 

'hhhhhhhhhhh'Z 

1550 DATA 'phPpphlixp'x 

*li"p"pp""Z 

1560 DATA 'phPphhpsx'p 

'hhhhhhhl>hhh''Z 

1570 DATA PphFhhxxpxpx 



DATA Pph'hsx: 
' 'h'tiPh'Z 
DATA Pph'hxp: 
PPhPh'h'Z 
DATA PphPhpx: 
hPhPh'h'Z 
DATA 'ph'hxxi 



xPpp'hPPPh"*Z 

1540 DATA YYYYYYYYYYYYYYYYYY 
YYYYYYYYYYYYYJS 
1650 DATA F05047614345C20036 
1 2 1 2 1 2 1 2 1 2B 60000 06 A AD E989G 9 
0002023742221372,06023252724 
23600C0404D545C 5OCCO0 00004 6 A 
BB482SC0011 19 1D1S1 71311 
1660 DATA 000071123252290030 
1 1 994 1 49434008090CC9292CC92 
'., 02023752724 



1670 DATA 9ABCDEFGA4A:AHIJKL 

MNDQRSTUAAAAAA 

1660 DATA xp'ppppp 1 "hhhphhh 

h*'htihhhhhhhhZ 

1690 DATA 'pph 'pxhppPPPPpPPP 

PP'hpppppPPxhZ 

1700 DATA Pph"p' 'hp'h'hphhP 

h"hpppp'PP<hZ 

1710 DATA p< 'x'p'PP'p'hhplihh 

" 'hpppppppphZ 

1720 DATA ph 'hhphh'tip'phptip' 

'H'hhhhphhhhhZ 

1730 DATA ph " *ppp ' 'hp 'phphp ' 



1750 DATA php' 
■*!■*■• "" ' '"hZ 
1760 DATA 'p' 'F 
'hhhhhh 'hhhtihZ 
1770 DATA hpp'' 



1790 DATA hh"K 

'"hpp'hhhhhhZ 

1900 DATA '"p 1 

'h 'hppphphx 'pZ 

1B10 DATA xp' " 
p ■ 'hhhhhphh * 'Z 

1820 DATA s-«p ' ' <p *p "pUphp ' 

' ' 'hhhpppxh *pZ 

1B30 DATA p**xx" "" 'phphp' 

<h"P h'pZ 

1B40 DATA xxpxx: 

' "hhhhhhhhp'Z 

1850 DATA xxxxxxxxx"' "X*" 
h' t t upppi m Z 

1860 DATA YYYYYVYYYYYYYYYYYY 
YYYYYYYVVYYYYA 

1B70 DATA PFPPPPPPPPPPpppppp 
PPPPPPPPPP 

1880 DATA PPPppPpppPPppPPpPP 

PpPppppPPP 

1890 DATA PPpPPFFpPPpPPpPppP 

PpPpPPPPPP 

1900 DATA PPpFPPPpPPpPPpPpPp 

PpPpPPPPPP 

1910 DATA PPPpPPPpPPpPPpPpPp 

PpPpppFPPP 

1920 DATA PPPPpPPpPPpPPpPpPp 

PpPpPPPPPP 

1930 DATA PPPPpPPpPPpPPpPpPp 

ppPpPPPPFP 

1940 DATA PPppPPPpPPPppPPpPP 

PpPppppPPP 

1950 DATA PPPPPPPPPPPPPPPPPP 

PPPPPPPPPP 

1960 DATA PPPPPPPppPPPpppPpp 

ppPPPPPPPP 

---.;, data PPPPPPpPPpPpPPPPpP 



1980 DATA PPPPPPpPPpPpPPPPpP 



1990 DATA PPPPPPppppPppppPpp 

pPPPPPPPPP 

2000 DATA PPPPPPpPPpPppPpPpP 

PPPPPPPPPP 

2010 DATA PPPPPPpPPpPpPPpPpP 

PPPPPPPPFP 

2020 DATA PPPPPPpPPpPPppPPpp 

(jpPPPPPPPP 

2030 DATA PPPPPPPPPPPPPPPPPP 

PPPPPPPPPP 
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Zimmer 










I„ dc d Zimn.cn, 1 , 2 und 3, und Basic wie auch M S&mnofcd Ba- 




zwar in diese. Keitenfolge. si - Eim ^ P™ f ran: ,„«!!, „ 
NachjedemScHriTimKhiimtl: >ir.d m> lanj-daBiiorCompurer 


270 REM 


280 CALL CLEAR 




290 CALL CHAR<36, "S23944447C 


11^ §1111 


444444") 


300 CALL CH ARC 37, "6239444444 ' 


44447C") 


310 CALL CHARC3S, "S200444444 
444438") 




320 PRINT TAB(6)i"*** 'ZIMME 








330 PRINT "LENKEN SIE DAS FR 




OHE GR&NE":; : "GESICHTCHEN &B 


- si££r?:,£? HFSHfsS 


ER DEN":;:"KE<RZESTEN UEG MAC 
H ZIMMER": ;■ 


folgldieFrags.oi- : : '■ 


340 PRINT "1, DANN 2 UND AM 


ENDE 3. ,, :(:"S0ReEM SIE DAF&R 


und beenden die Zeile gam 


SICH tJIE"!|i"MIT DEM BXSEN 




SESICHTCHEN"!;: 




350 PRINT "IN EINEM ZIMMER Z 






USAMMEN"d i i "ZU TREFFEN."i[ |j 
360 FOR 1-91 TO 131 










370 READ I* 






390 CALL CHARCI, [*> 






390 NEXT I 




fOO REM ******* *********** 


400 PRINT "EINE TASTE DR&CKE 




110 REM * * 


N, BITTE. "[ 




120 REM * ZIMMER * 


410 CALL KEYCO.K.S) 




130 REM * * 


420 IF 3=0 THEN 410 




140 REM * CO H.VERHEIJ * 


430 CALL CLEAR 




150 REM * * 


440 PRINT " I - JOYSTICK 1": 




160 REM *MEL0ENSTRAAT ilB* 


;:" 2 - TASTATUR" i j i ; j j ; ; : " 




170 REM * * 


WAG U*HLEN SIE ?"i|uu: 




ISO REM *2564 TL DEM HAAO* 






190 REM * * 


450 CALL KEYtO.KI.S) 




200 REM * TI 99/4A * 


460 IF <KI<49>+(KI>50>THEN 4 




210 REM * * 






220 REM *TIBAS ODER EXBAS* 


470 CALL CLEAR 




230 REM * * 


4B0 IF KI=50 THEN 520 




240 REM * APRIL 19B7 * 


490 PRINT '■ ALPHA LOCK HQCH, 




250 REM * * 


BITTE ! !";;:"MIT DER FEUERT 




2&0 REM ****************** 


ASTE K7.NNEN" : ; : "SIE EIN LOCH 
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500 PRINT "SCHLAGEN IN EINER 

510 GOTO 530 

520 PRINT "E = AUFWtRTS'V'X 

- HINUNTER": ;; "5 - LINKS", "D 

- RECHTS":;iSi"D • LOCH IN 
RECHTER UAND,":;: 
530 PRINT "IMDEM EINE SCHR«G 
E LEITER": ; i "DAGEGEN STEHT. " 
:;:; ■.;■.;■. ;-.;:■' EINE TASTE DR 
&CKEN, BITTE." I|t 
540 CALL KEY(0,K,S3 
550 CALL KEY(1,K,SE> 
560 IF <S=0)*<SE=O)THEN 540 
570 CALL CLEAR 
590 DATA 81B2B49B90AOCOB0,FF 
808OBO8O8182S4, BB8B 888890 AOC 
OFF, FF000O60EO60606O, 6060606 
0606O60E0 
590 DATA 80BOB08080aiS284 t BB 



BSB, 8B8BS8BB90A0C0B0, 0101O16 

1E1616161,61616161616161E1,6 

16264687060, 0O0OOF1F386BCBBB 

600 DATA FF90B080BOS08080,SO 

8030BO808O6OFF,8OB0B0808OB08 

080, OOOOFCF890AOCOFF, E13F213 

F213F213F,2I3F213F213F21FF,2 

13F213F213F2101.01O101010101 

01FF 

610 DATA 8182849B9OA0COFF,BC 

94A4C6464A5263, 63252931 1 1 121 

418, 090BOE0C 14244586,0202020 

3010101FF,C04O406O6OA0203O,3 

0509010000000FF,FFOl01G1010I 

0101 

620 DATA 0101010101010101,01 

21213F217FA1FF, 0102040810204 

08O,FF,00000OOO0O00O0FF,S9EB 

7E 3 C3 4 34O50 6 , 90 AO AO A O AO AOCOF 



630 DATA B0Ba8B8BB8B88OFF,S0 
9C84B8909C8OFF, 809CB4BC849C8 
OFF, 01451 1 1 1453901 FF 
640 REM LEERES GEBAEUDE 
650 CALL SCREEN t 15) 
660 13=3 



730 CALL VCHAR<1,3; 
740 CALL HCHARC24,: 
750 CALL HCHARC23,; 



820 GGSUB 1160 

830 R=R+4 

840 GOSUB 1280 

B50 GDSUB 1330 

860 R=R-t-4 

B70 GDSUB 1370 



B80 R 



IF 1=2 THEN 1450 ELSE 91 



960 GOSUB 12B0 

970 R=R+4 

980 IF 1=1 THEN 1450 ELSE B2 

O 

990 REM REIHENFQLGE 

1000 FOR J=l TO 6 

1010 TCJ)=0 

1020 NEXT J 

102O FOR J=l TO JJ 

-INTCRND*JJ)+1 
CT(l) = m + <TC2) = m + 

;> + CT(4) = [I)* 
!)TREN 1040 



TCSJ-II 



+(T(£)= 
1060 T(J1 
1070 NEXT J 
1090 RETURN 

1090 FOR KQ"=7 TO 27 STEP 4 
1100 CALL GCHAR(RY«-2,K0+3,C1 



110 CALL ( 



!<RY+2,K0+1,C2 



1120 CALL QCHAR(RY*3,KQ+1,C3 

.130 IF CC1=1I0)+CC1=121)+(C 
>»102) + CC2=115>-KC3=103J*<C3 
=116)THEN 1140 ELSE 1150 
140 NEXT KO 
) RETURN 
1160 REM OEFFNUNG /LEITER 
1170 CALL HCHAR(R+2,K+3,I21) 

3 RETURN 
1190 REM TUER 
12O0 CALL HCHAR!R,K,92) 
"MO CALL HCHAR(R+1,K,97) 
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> CALL HCHARCR+2,K,98> 
1 CALL HCHAR<R+3,K,93> 
■} CALL HCHARCR,K+1,94> 

) CALL HCHARCP+1,K+1,95 

Ii CALL HCHARCP+2.K+1, 10 

J RETURN 

) REM LEITER 

J CALL HCHAR(R,K+3 f 103) 

) CALL HCHARiR+l,K+3,10 

i CALL HCHAR(R*2 T K+3,11 

■> RETURN 

) REM OEFFNUNG/TREPPE 

) CALL HCHARtR->3,K+i,10 

> CALL HCHARt;R+3,K+2 f 10 
5 RETURN 

J REM TREPPE 
[i CALL HCHARCR,K+i,113 
) CALL HCHAR<R+1,K+1,1 
} CALL HCHARCR-2.K+1, 1 
■J CALL HCHAR<R+2,K+2,1 
I CALL HCHAR<R*3,K+1,1 
) CALL HCHAR<R-K3,Kt2,l 

> RETURN 

) REM ERSTES VIER 

> R=INT<RND*2)41 

> IF R=! THEN 1490 



> KO^I 

) QGSUB 1130 

) GOSUB 1330 



560 QDSUB 1160 
570 QDSUB 1370 



530 QDSUB 1 



) QOSUB 1370 

> REM ZWEITES \ 

) I=INT<PND*21)h 



■ IF tK0>20)*(I>; 



760 QOSUB 1280 



I SOSUB 1330 



840 REM 3- 

B30 JJ=S 

B 60 GOSUB 990 



> FOR K0= 
3 CALL G< 

> CALL 



GCHAR<RY+1,K0+1,C3 



KC3=11£)THEN 



330 l-.=kLl 
970 IF J>JJ 



2180 GOSUB 1330 
2190 R=R+4 
2200 iiOSUB 1370 
2210 R=R-S 
2220 RETURN 
2230 GOSL 
2240 GOSUB 1190 
2250 R=R+4 
22B0 QOSUB 12S0 
2270 GOSUB 1330 
22B0 R=R*4 
2290 GOSUB 1370 



THEM 2030 



2040,2140, 



990 ON T<J)GOSUB 2040,2-1. 
2230,2320,2410,2510 
1990 J=J+1 
2000 R=13 
2010 ON T<; 
2230,2320,5 
2020 NEXT KQ 
2030 GOTO 2600 
2040 GOSUB 1190 
2050 QDSUB 1330 
2060 R=R+4 
2070 GOSL 
20BO GOSUB 1370 
2090 R=Rf4 
2100 GOSUB 1190 
110 GOSUB 12B0 

20 R=R-B 

30 RETURN 

4o QDSUB 

50 R=R+4 

GO QDSUB 



2300 
2310 


R-R-B 
RETURN 




2320 


GOSUB 


190 


2330 


GOSUB 


330 


2340 


R=R+4 




2350 


GO SUB 


160 


2360 


GOSUB 




2370 


R-R+4 




2380 


GO SUB 




2330 






2400 


RETURN 




2410 




190 


2420 


GO SUE 


330 


2430 


R=R*4 




2440 


GOSUB 


160 


2450 


ijQSUB 


370 


2460 


R=R*4 




2470 


GO SUB 


190 


2430 


GOSUB 


280 


2490 


R=R-B 




2500 


RETURN 




2510 


QOSUB 
R=R*4 


330 


2530 


GOSUB 


160 


2340 


GOSUB 


370 


2530 


R=R+4 




2560 


GOSUB 


190 


2570 


GOSUB 


280 


2580 


R=R-B 




2590 


RETURN 




2600 




2IMMER 


2610 






2620 


GOSUB S 


90 


2630 






2640 






2650 


GOSUB 1 




2660 


IF K0>2 


7 THEN 2730 


2670 


R-RY 




26SO 


K«KO 
J=J*1 






ON T(J> 


SOSUB 2750,2810, 


2870 


2750,28 


10 


2710 


IF J=JJ 


THEN 2930 




IF K0>= 


27 THEN 2730 ELS 


E 2650 . 




2730 


RV=RV+9 
GOTO 26 


30 


2750 


GOSUB 1 


160 


2760 


R=R+4 






GOSUB 1 


190 


2780 


GOSUB 1 


2 BO 


2790 






2BO0 


RETURN 




'2810 


GOSUB 1 


60 


2B20 


SOSUB 1 






3-R+4 






30SUB 1 


>S0 


28SO 


?=R-4 





2S60 RETURN 
2870 GOSUB 1130 
2BB0 GOSUB 1330 



3 QOSUB 1370 

3 R=R-4 

J RETURN 

> REM STEUERUNG 



2950 I 
2960 E 
■2970 C 



illOt: 



2980 CALL C0LORC3.2.7) 

2990 CALL COLORC 13,2,3) 

3000 CALL HCHAR(2,29, 128) 

3O10 CALL HCHAR(2,S, 129) 

3020 CALL HCHAR(22,29,130) 

3030 CALL HCHAR(.24,6,131> 

3040 CALL HCHAR(4,30,4B) 

3030 CALL S0UNDC15O, 1396,0) 

3O60 CALL GCHAR<R+2,K+1,C1) 

3070 CALL GCHARCR+2,t;>3,C2) 

30SO CALL GCHAR(R+3,K+2,C3) 

3090 IF IWSKW THEN 31!X> !-"! 

E 3110 

3100 C4=0 

3110 CALL GCHAR(R+2,fc*5,C4> 

3120 IF KI=50 THEN 3160 

3130 CALL JOYSTa.X.Y) 

3140 CALL KEYC1,KEY,S> 

3150 IF tKEY=l 

X=0)THEN 3220 £ 

3160 CALL KEY« 

3170 IF C(KE=6^ 

CCl=115)+i 

HEN 3340 

31B0 IF Ci 

CC2=121)+i 

3190 IF li 

CCl=102)+( 

32O0 IF CtKE=68)+ 



THEN 3400 



(C4-10ai+CC4- 



25)) THEN 3430 



DTHEN 3220 ELSE 



3210 ] 
C4=H5>*(EX=i 

3160 

3220 CALL SOUN0135O, 200,0,; 
0.0,-5,0) 

3230 CALL HCHAR(R+2,K+5, 12; 
3240 CALL HCHAR(R+3,K+4, 12£ 
3250 CALL HCHARCR+2,K*4, 123 
3260 EX=1 
3270 GOSUB 37SO 
32B0 GOSUB 3B00 
3290 GOTO 3060 
3300 IF <Y-4)*I(C1=115)+(C1 
125>+ CC2= 110) > THEN 3340 
3310 IF CY=-4)*((C2=121)+il 
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3330 



)THEN 3370 



)THEN 34O0 



■ C5-" 



I THEN 3770 ELSE 



F CX=4):| 



CC4=1 



i THEN 3430 ELSE ! 
3340 GDSUB 4110 . 
3350 R=R-4 
3360 GDTa 3450 
3370 GDSUB 41 10 
3380 R-R+4 
33'30 GOTO 3450 
3400 GDSUB 4110 
3410 K=K-4 
3-1 20 GC1T0 3450 



3470 IF <R=l»*tK=27)) 
EN 34B0 ELSE 3510 
3480 CALL HCHAR<2,2'3, 
3490 CALL S0UND125O,: 
80,2) 
2500 Q=2 

3510 IF <R=l)*CK=3)*i 
N 3520 ELBE 3550 
3520 CALL HCHARC2.5,] 
3530 CALL SOUND<250,; 



3770 
3780 
3790 
3800 
3810 
3B20 



3S50 
3BG0 
3870 
N 40: 

asao 

3B90 
3900 
3910 
3920 
3930 
E 38: 
3940 
3950 
3960 



:+3, 1311 



CALL HCHAR<Rh 

QOTO 3940 

RETURN 

REM 6EGNER 

CALL HCHARCL1 

IF (LVN-B)+1LVN=16)+CLY 

THEN 3920 

KQL=KDL-4 

IF KOL=2 THEN 3900 

CALL GCHAR<LYN,KGL,C6) 

IF C6=131 THEN 3940 

IF tLYN=24)*(KOL=30)THE 

CALL HCHARCLYN T KDL,i 

LYN=LYN+4 
GOTO 3B20 
KOL=KC 



■ i-:ol.=: 



I 3900 ELS 



CALL SQUND<750,-6, 

CALL HCHAR<LYN,K01 

CALL SCREENC14) 

(50 SUB 4080 

CALL CLEAR 

PRINT u ERWISCH 



3550 IF {R=21)*<K=27)*(Q-1: 

THEN 2560 ELSE 3590 

3560 GOSUB 3750 

3570 GOSUB 3800 

3580 GOTO 3060 

3590 CALL HCHAR (22, 29, 105) 

3600 P=P+1 

3610 CALL S0UNDC25O,392,2,; 

4,6) 

3620 CALL SOUNTX50Q, 523,0, 1 

47,5) 

3630 IF P<4 THEN 640 

3640 REM ENDE 

3650 FOR 1=21 TO 24 

3660 CALL HCHAR(I,31,75+I) 

3670 CALL HCHARI I , 32, 79+1 ) 

3680 NEXT 1 



3690 CALL I 
3700 CALL 1 
3710 PRIfi 



*R(24, 32,32) 
VR<24,30, 111) 

GUT GEMA 
NOCH EINMAL C 



3720 CALL. S0UND<30i>,392, 1 

4,5) 

3730 CALL SOUND (750, 625, C 

50,3) 

3740 GOTO 4160 

3750 CALL GCHARIR+3, K+3.C 



4000 GOTO 4150 

401O CALL S0UNDC75O,-7,o: 

4020 CALL HCHAR<LYN,KDL,' 

4030 CALL SCREEN(ll) 

4040 GOSUB 4090 

4050 CALL CLEAR 

4060 PRINT " ZU SP5T 



4070 GOTO 4150 
4080 FOR 1=1 TO : 
4090 NEXT I 
4100 RETURN 

JEM SCHRIT" 
1120 CALL HCHARff 
1130 CALL SOUND*: 
) RETURN 



RINT ' 



NOCH EINMAL 



4200 GOTO 640 
4210 CALL CLEAR 
4220 END 
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MERGE mit dem Cassettenrecorder 



die* mm tin i;i ; .Sr.Qir\CI: sratiorcn .rnmmi ' Jj-jck'n 

:-i if-'orri!- n„n ,„r VerfGnumv *"i. C j ^■'"^ "'"''''''' CALL I. INK , "111 .ir I ? ;i „,; ? lv 

KBylcvcr- . :... ■:!-nLl, e ,-,,™dL aI fc I . 



SEARCHING FOR MERGE »**«*****************««*****«********»**««****> 
MERGE 

sd-B.asic, 32K-Speichererwelterung und 

03) Hagen Trocha 

ABLAUF: 

- Laden Oder Eingeben PRG1 

- PRG1 sichern mit CALL LINK<"SAVE1"> 

- Laden Oder eingeCen PRG2 <2eilsn-Mrn. groesser als Im PRG1!!> 

- PRG2 slcharn mit CALL LINKCSAVE2") 

- Meraen mit CALL LINK*' ■MERGE") 



- Weustart nach CALL LINKC'MERCE") Oder CALL LINKCOLD") steht 
Programm auch nach Aus-/Einschalten des Rechners mit 
CALL LINK<"NEtf"> zur Verfuegung 

* ** * **** * * ** ************** ************************************** 
DEF SAVE1,SAVE2,MERGE.SAVE,0LD,NEW 
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VSBW EQU >2020 


CLR S 


VMBW EQU >2024 


M0V8 18,6 


VSBR EOU >2029 


SUPB S 


VMBR EQU >202C 


A 6,3 


XMLLNK EQU >2018 


C 3,2 


ERR EQU >2034 


MOV 3,2 


FAC EQU >834A 


PNTR EQU >8356 


TEB C 8,9 


PAS EQU >03D0 


CLR 6 
DEC 2 
MOVB »2,6 
SUPB 6 
A 6,2 
INC 2 


TOP EQU >09C4 


ADR EQU -42 
ZERO DATA >0000 


TWO DATA >0002 


THREE DATA>0003 


EIGHT DATA >0B00 


START2 DATA >A000 


MYWS BSS 32 


START1 DATA >0000 


TEX MOVB »3,I 


DIFL1 DATA >0000 


AI 1,>6000 


D1FL2 DATA>0000 


BLWP 0VSBW 


LI DATA >0000 


INC 


L2 DATA >0000 


INC 3 


ST1 DATA >0000 


DEC 2 


ST2 DATA >0000 


JNE TEX 


PDATA DATA >0G0C,VDP,>5050 


RT 


LEM DATA >0000,>6003 


DIB DATA >000A 


NAME TEXT'CSl' 


HEXD CLR 2 


DATA >FFFF 


DIV @D10,2 


EVEN 


MOV 34 


TEX1 TEXT 'Belegt sind Bytes' 


SWPB1 


TEX2 TEXT '* MERGE *' 
TEX3 TEXT '======«=' 


AI 1,>9B00 
BLWP OVSBW 
DEC 
MOV 2,3 
JNE *XD 
RT 
FEi CLR 3 
INC B 
INCTB 


TEX4 TEXT 'zusaetzlich max. Bytes' 


TEX5 TEXT '* SAVE *' 

TEX6 TEXT '-bis 12288 Bytes: SAVE CS1' 


TEX7 TEXT '-darueber: CALL UNKC'SAVE":! 1 


TEX8 TEXT 'Elnlesen mlt CALL LINK ("OLD")' 


TRA " MOVB *0,*1 
IMC 


MOVB *8,3 


DEC 2 


INC e 


JNE TRA 


CLR 6 


RT 


MOVB *8,6 


TRB MOVB *0,*1 


SWPB6 


DEC 


A 6,3 


DEC 1 


RT 


DEC 2 


FE2 CLR 2 


JNE TRB 


LI 1,256 


RT 


DIV 1,2 


TES1 MOV @>B330.8 


SWPB2 


MOV @>8332,9 


DEC 8 


CLR 2 


HOVB 2,*8 


DEC- 3 


INC 8 


TEA INC B 


SWP8 3 


INCTB 


MOVB 3,*8 


CLR 3 


RT 


MOVB *B,3 




INC 8 
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SAVE1 LWPIMYWS 
MOV @>8330,1 
MOV @>8332,2 
S 1,2 
IMC 2 

MOV 2.9DIFL1 
CLR 0ST1 
BL 9TES1 
CI 2,-10 
JH TES2 
INC 9STL 

TES2 S 1,2 
MOV 2,311 



LI 



9L1.1 



CLR 
DIV 8TWO.0 
MOV ®START2,1 
LI 4,64 
A 4,1 
A 0,1 

MOV IflSTARTl 
MOV 9>B330,0 
BL 9TRA 
LI DI500 
MOVB l.@>8323 
LWPI >83E0 
RT 

«******!*. it *****!** 
SAVE2 LWPIMYWS 
MOV 9)8330,1 
MOV @>8332,2 
S L2 
INC 2 

MOV 2.9D1FL2 
CLR 9ST2 
BL @TES1 
CI 2,-49 
JH TES3 
INC @ST2 
IES3 S 1,2 
MOV 2,9L2 
MOV 9START2.1 
MOV 9)9330.0 
BL 9TRA 
LI 1.M500 
MOVB l.@>8323 
LWPI >B3E0 
RT 



MERGE LWPI MYWS 
LI 1.ADR 
MOV @START1,0 
A 9L1.0 
DEC 
MOV 9L1.2 

s 9difu,2 



BL 


9TRB 


m 


1,9 


LI 


0.VDP 


MO' 


9START1.1 




9DIFL1.2 


6LWP @VMBW 


MO 1 


9,1 


MOV «START2,G 


A 


ffl.2,0 


DEC 





MO' 


SL2.2 


S 


@DIFL2,2 




0TRB 


LI 


0,VOP 


S 


9DIFL1,1 


INC 




MCT 


9DIFL1.2 


BLWP 9VMBR 


DEC 


1 


MC* 


9START2.E 


A 


9DIFL2.0 


DEC 





MO* 


0DIFL2.2 


BL 


9TRB 


ADRESS LI 8.ADR 


5 


9L1.6 


S 


9L2.B 


IMC 


B 


MQ\ 


8,9 


MO\ 


8,@>8330 


A 


5DIFL2.9 


DEC 


9 


DEC 


e 


FED BL 


9FE1 


m 


9ST2.1 


CI 


1,0 


JNE 


FC2 


LI 


.,-25 


LI 


2.ADR 


S 


1,3 


FC2 S 


9L1.3 


A 


SDIFL1.3 




9FE2 


C 




JNE 


FED 


A 


soiai,9 




9.9)8332 


FEC BL 


9FE1 


MOV 


8STL1 


CI 


,0 


JNE 


FEN 


LI 


,-25 


LI 


2.AOR 



CLR ( 1 

MOVB 1,9>837C 
TEXTE LI 0,34 
LI 2,29 
LI 3.TEX1 
8L 0TEX 
CLR 3 

MOV 9>8330,2 
S 2,3 
LI 0,S5 
BL 9HEXD 
LI 0,130 
U 2,9 
LI 3,TEX2 
BL 8TEX 
LI 0,162 
LI 2,9 
LI 3.TEX3 
BL 9TEX 
LI 0.226 
LI 2,28 
LI 3JEX4 
BL 9TEX 
MOV 9>8330,4 
LI 3,64 
S 3,4 
LI 3,>A000 
S 3,4 
CLR 3 
DIV UTW0.3 
LI 0,247 
BL 9HEXD 
LI 0,354 
LI 2,9 
LI 3.TEX5 
BL 9TEX 
LI 0,386 
LI 2,9 
LI 3,TEX3 
BL 9TEX 
U 0,450 
LI 2,2S 
LI 3.TEXG 
BL 9TEX 
LI 0,514 
LI 2,28 
LI 3.TEX7 
BL 9TEX 
MOV 9>B332,9L2 
MOV 8>B330^L1 
LWPI >83E0 
RT 



FEN BL @FE2 



NEW LWPI MYWS 

MOV 0L1,9>8330 
MOV 9L2,@>B332 



LUPI >B3E0 


RETURN HOVB 0ZERO,@>B37C 


Basic-Lader 


RT 
mm******* ***im m 


BLWP 03PLLNK 
DATA >34 










. SAVE LWPI HYWS 


LWPI GPLWS 


120 




LI 1,>0E00 


B 0>0070 






HOVB 1.0PDATA 


**«*«*«»«*«»*«***** 


140 




LI 0.VDP 


REC LI 0,PAB 


130 


* POKELISTE * 


LI 1,>6330 


LI l.PDATA 






U 2,4 


LI 2,15 


170 


mm*********** 


BLWP0VMBW 


BLWP PVMBV 


180 




LI 0.VDP+4 


LI 0.PAB+13 


190 


* (c) H. Trocha * 


LI 1,>O000 


HOV 0.9PNTR 






LI 2,>3000 


HOV 0NAME,8FAC 




***************** 


BLWP0VMBW 


HOV 0NAME+2.0FAC+2 






WV 2.0LEN 


HOV 0THREE,0>8354 






BL 0REC 


aR 0>B3D0 


250 




LI B,VDP 


HOVB 0EIGHT,0>836D 




MOV PW330J 


HOVB 0ZERO,8>837C 






U 2,>CFFF 


8LWP 0GPLLNK 




***************** 


S 1,2 


DATA >003O 




BLWP0VMBW 


LI 0.PAB+1 


!CALL PRUEF kann mch feh- 


HOV iffl-EN 


8LWP0VS8R 


lerfreier Dateneingabe *nt- 


BL 0REC 


SRL 1,13 


(•11 en 


BLWP 0XMLLNK 


JNE ERROR 


300 PRINT ■ Es ylrd 


DATA >002S 


RT 




LI 0,738 


ERROR LI 0,>2400 




LI 2,29 


BLWP 0ERR 


310 CALL INIT 


LI 3.TEXS 




320 RESTORE 360 :j FOR K'973 


BL 9TEX 


GPLLMK DATA >2038 


8 TO 11153 :: READ A :i CALL 


BLWP 0XMLLNK 


DATA GPLLN1 




DATA >0026 


GPLLN1 MOVB 0>9882,0 


330 FOR K-11154 TO 11201 :: 


JMP RETURN 


SWPB0 


READ A |i CALL L0AD<5192+K,A 


M I ■****>»>**«****•« ' 


HOVB 0>9802,0 


):: NEXT K 


OLD LWPI MVWS 


SWPB0 


340 READ A,B i: CALL L0AD(61 


LI P059B 


AI 0,-3 




HOVB 1.9PDATA 


HOVB 0>8373,1 


350 CALL ABLAUT II END 


LI 2,>3000 
MOV 2.0LEN 


SRL 1,8 
AI P830S 






BL 0REC 






LI 0,VDP 


MOV 0,*1 


60,00,0,0,96,3,67,53,49,0,25 
5,255 

1,04,32,115,103,110,100,32,3 


LI P8330 
LI 2,4 

BIWP0VMBR 


SWPB1 

HOVB 1,@>S373 
LI 3,>2000 
HOV *3,2 
LI B.GPLLN2 
MOV 0,*3 


MOV 9>e330.0>83B6 
DEC 9>8386 
LI 0,VDP*4 






LI PD000 


HOV *14+,0>83EC 


400 DATA 61,61.61,61,61,61,1 


LI 2,>3000 


LWPI >83£0 


BLWP 0VMBR 


B @>0060 


MOV 2flLEN 


GPLLN2 LWPI >2038 




BL 9REC 


HOV 2,*3 


32,32,32,66,121,116,101,115, 


LI 0,VDP 




42, 32, 83, £3, BE, 69 


MOV 0>8330,1 


END 




LI 2,>CFFF 




115,32,49,50,50,56,56,32,66, 






121,116,101,115,50 


BLWPSVMBR 




430 DATA 32,63,65,36,69,32,6 


MOV 0>8330,0U 
MOV -0>6332.0L2 















Tl 99/4A 95 



if^iftsTiol 140 - 34 ' 7 *' 76 ' 6 tSkkw? 1 *'*"'* 1 '* .^.0,28.2,3,39.1 
450 DATA 97, [14,117,101,93,1 650 DATA 39,33,2,1,155,214,1 BSO DATA 200 32 13 
01,114,53,32,67,65,76,76,32, 92,32,33,20,160,32,33,26,6,0 200 32 131 48 38 



id DATA B3,E5,8&,69,34,41,2 660 DATA 96,160,36,22,6,160, 860 DATA 39'38 200 2 
!, 80,5,128,5, 129,6,2,22,251 38,228,194,65,2,0,9, 196 192 131 « 200 32 3B ?R 



,192,216,0,255,214 
— DATA 2,224,131,2 



900 DATA 9^196,192,96,1; 



DATA 6,0,6,1,6,2,22,251, 670 DATA 38,22,4,32,32,36, .„ 

,194^2,131,48,194,96,13 2,73, 192,32,38, 18, 160,32,38, M*3MpAi,M.M 
',4,194 2B,6,0, 192, 160 34 2 

DATA 6,8,5,136,5,200,4,1 680 DATA 38,28,96,160,38,24, BSo'dATA 9,196,2,1,131 43 

flfl, 216,5,136,4,198,209,1 6,160,38,228,2,0,9,196,96,96 2,0,4 4 32 32 36 20 9 2W 
,,19B,160,19B ,38,22,3,129 I *"•* 

DATA 12B.13I, 26,1, 192,13 690 DATA 192,160,3B,22,4,32, 890 DATA 208,0,2,2.48 4 
; 0, 72,22, 242, 4,193, 6, 2,20 32,44,6,1,192,32,38,13,160,3 32 36 200 2 28 ill P. i cA 1 

6,6,198,160,134 2,38,24,6,0 W ■> n ' ' ' U,D '"*'' 

DATA 3,130,4,91,31,4,4,9 700 DATA 192, 16< 
0,1,4,70,128,1,96,1,4,13 ,38,228,2,8,255, 

,26,98,32,38,28 ' ' afillw'i! MHO™' *"'"'' "*""' 

710 DATA 3,136,194,72,200,8, 910 DATA 6,160,42,244,4,32 3 

131,48,162,96,38,24,6,9,6,6, 2 24 38 2 O 2 ST) 3 * m 

6,160,39,110 2 3 ,e,i,u,ci 

520 DATA 96,0,4,32,32,32,3,1 720 DATA 192,96,3B,32,2, 129, 920 DATA 3B 139 6 160 39 70 

28,5,^,6,2,22,247,4,91,0,1 0,0,22,6,2,1,235,231,2,2,255 4,32.32,24,0,3 B : i 6,52:2,224: 

SS^iSBSSS «^:Sf^ fSfH&tf&Rd* 

,6,0,192,194 130,72,22,235,162,96' ' ' 44 2 ' - ' ' ' i60 ' 4^ ■ 2 

540 DATA 22,244,4,91,4,195,5 740 DATA 38,22,200,9,131,50, 940 DATA 9 196 ? 1 ISd 

,136,3,200,203,216,3,136,4,1 6, 160,39, 11B,192,96,3B 30 2 H 4 4 32 32 44 inn U^ 

98,203,152,6,198 129,0,0,22,6 48 j 3 i W ' " 0W,; " ,K 

550 DATA 160,198,4,91,4,194, 750 DATA 2,1,233,231,2,2,255 9SO D/' 

2,1,1,0,60,129,6,194,6,8,214 ,214,96,66,96,193,6,160,39,1 200 2 

.2.5.136 38,130,72,22,239 32 44' 

560 DATA 6,195,214,3,4,91,2, 760 DATA 4,193,216,1,131,124 960 DATA ™)»«n 

224,39,38,192,96,131,48,192; ,2,0,0, 34, 2, 2,0, 2b! 2;3,3B,50 S^HA^'^in «' ! 

160,131,50,96,129 ,6,160 3 22 207 9SS ' * ' 

570 DATA 5,130,200,2,38,22,4 770 DATA 39,70,4,193,192,(60 970 DATA 96^123 4 32 32 

^lif ^ 60 * 35 ' 240 -*'' 3 ; , «-*.*.'«.2.0.<>.».6.1li 00,32,13*8 3B26f2^32,i3 

u,^aa,zi6,27,2 0,39,32,2,0 1 30 38 2B 216 32 

5? "IJ 5 .160-3B.30,%.128, 780 DATA 0,130,2,2,0,3,2,3,3 980 DATA 38, lo) 131, 124 4 32 

,26,214 8^78,6,160,39,70,2,0,0,162,2 43,74,0,52,2,224,131,224,4, 

» DATA 0,105,96,68,4,192,6 790 DATA 0,9,2,3,38,87,6,160 MBMUN 2 1 38 34 5 

,32,38,12,192,96,38,18,2,4, .39.70,2,0,0,226,2,2,0,28,2, ,0,1574,32,32 36 20 3 221 

■70,1 1000 DATA 131,86,200,32,38, 

3,'tSo"«" "'— '"'""'■ 3 ' 2 ''.131.74,200,32,38,46,131,76 

610 DATA 131,35,2,224,131,22 BIO DATA 97,3,4,135,60,224,3 iow'Stf j'^lsf 208 211 

^?fsS:"' 3! ' 1^2,96,1^ B ' ,3 ' z - o '°^ 47 '6,i6o T 3;,92:2 KiT,!;^ 1 , 3 ^^ 1 



4.2,0,9. 



0,224,3 

0,39,92,2 32,38,16,131, 1 09 ,'2 1*6^321 38 ^_ 

-,„ 96,129,5,130,200,2, 820 DATA 2,2,0,9,2,3,38,124, WO MMo'^'f ? 3 209 4 9 

24,4,224,38,32,6,160,38,2 6, 160,39,70,2.0, ,30.2 2.0 2 32 40 3 ^ » "f;V 

2,130,255,216 9 **>*•»> ^,32,40,9,209,22,1,4,91,2,0, 

"IzVES S^Sffi^?! 2?,^ 2 ^ > f; B : >fi - l60 - M ' '030 DATA 4,32,32,52,32,56,4 

B,^^:^^'' 92,96 ' 38 ' 1 J|AVIHW»AMi 3 78 2 08,32,152,2,6,132,208, 

640 DATA 6,160,38,2,6,2,1,2. 840 DATA 6,160,39,70,2,0,2,2 1040 Da'a 2,32,255,253,208,9 



Computet Kontatt 2-3/86 



1360 RESTORE 1100 

1370 FOR 1=1 TO 74 :: READ 

II r-ktll.-A I| NEXT I 
1380 RESTORE 360 
1390 FOR 1=1 10 74 :: SUM- 
: ! FOR K=l TO 20 : : READ A 



6,131,115,9, 129. 2, 33, 131,0,5 

,193,196,64,6,193 

1050 DATA 216,1,131,113,2,3, 



1 92,21)0. 62, 131,236 




96 2 224' 32 56 19 


6 19+' 3 


128,83.65, B6, 69 




1070 DATA 49,32,33, 



















,-jasa 


2039,1915 


1170 


SUB TITEL 








liw 


PRINT 





1090 DATA 32,32,42,120,6 



1220 SUB ABLAUF 
1230 CALL CLEAR 
1240 PRINT ■ABLAUT!" 



1110 DATA 173,1191,1195,1314 

, 1810, 1286, 1371,1631, 1283, 15 

24,1605,1463,2249,2138 

1120 DATA 9Sa,502, 1045, 1478, 

2233, 1415, 2041, 1769, 10B5, 124 

9,1547,2145,1969,1504 

1130 DATA 1729,1509,1912, 



* CALL LINKCEAVEr 1 )" 
1250 PRINT "- Lad*n od*r EL 
geben PRS2"s" Z*il*n-Nrn. 

als in PRG1"!"- PRS2 siche 
n lit":" * CALL LINKPSAVE 



5,1409,1 



i, 1715,1 



;, 1641,2 



1 IF SUM=PR(I)THEN PRINT 1140 DATA 707,679,1147,1280, 

:«l O.K.-:-" ELSE PRINT " 601, BOB. B19, 1B56, 1912,1279,7 
j»btf*hl*r in Zeile 1090" 13,1098,1747,850,976 



Pilot-Compiler erzeugt C99-Source 






srhwindigkeit Bislang M 
mer noch ungefclSTI. wai 



.l.tiI'ii^lii ka:iislc. «i"- ,, iiliet un boding! die zcrtuuE- J! ^ Jl 

pafciMcnwLcttHd.Sfiir SC r. i N.ill -iii.il iuik-nteil mil brhalt 

ig. Its fur riehi sirmi is< \ < ivjir <j oikr bA; (begin Compitei 

nkNiim-NScruiprii.ln ;„v.i!i -:c.) Jlc ■.pradic •■cch- butliner, 

nLcrtSlriiijjO. liiocKei- inseejomt 7S Pilcl-Bcfchlc Eirroschi 



Pi1oL91- Program™ . das W 



n Mcglkhktilcn i er -P 
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Marktiibersicht fur den TI 99/4A 

?'-"" Ou^.-.i!. .,h„ ................... n„^-n-«/ iln ;,h, 






Diskettenlaufoerke 


Mrchiirrorilk-lSH-KByle-Eit- 
Fi>undiilii>ii-12!S-Knyic-rrvei- 

■ :■:..' ■.■■.' 


Itllifll 






miitioK-ii -ind. Solche Gertie 

werdeniiir-islji'ilL'riiJ , i:r:i|.iir,T- 
la;kai .■i^l...; L 'ii l;i [Sic I'cri 


genTI-Qubsalj liii:-.ls'-,!rL - 
gcnbau ingcbotcn. Die I*ieiw 



^,.L,n|>M>f*i,ak- iv, uhKn *vr- I'r.-.HI^tiie mil -.: c - Sl.,.r... : i -j r 

den TI £ihl. Das Angu-lioi an ^ nn|lfel1 - u ' ei! lIj ^ m >!■-' I^>. 

fen^RrtineTdicsicr Otajidn MwtDSJDD Myaie-U6KByte-/512-KByii:- 

Piskcn.li -Controller ft !H!?52 






rc-256-KBy tc-/5 1 2-KByte- 



Spekhere 



iib.'i .Las Hii^ipln-:.-ii-| ,',lcr ;ai- ■in.ada'-^ruiM.nii^-.i Iktj 
Icnncrdcn. HildiiiTI;m'.iixr L rk! n.i,i mi 






Computer Kontakl 2-3/88 



■hin'lSlte sehr £ mLfe " Srfnvimkimseii 
» fiir dcr. ti sjnd u5m- Peiiphrrk'-Kumpiikt- 



mil 2 DS/DD-Umfwerken 


man nwh 4 1 ! - Dollar (iir Ve 


























































leiLiirilibim '-s isi iillcidliim 








,111 mii .-i^i.-. ,i,-. [„i|wri.nr,ur 


«Ln.i.irSil],il,i:S^,rilill u.l-. t 



k jcbiau,liii;li- pajiKr.lii- ,un .! 



80-ZeicKen-KarK 



GRAM-Spelcher- 



A&dpMl ncxh eiai e e AmmicCFS.a JntaferaJtausaui GPL ist cine Sprache. die wi=- 

ici Jei „„.::r:-,:i PivKkiiV- Bei diss™ SJWH i,l m be- M.OO Dollar ^™ °" m ' die » ctii fs &■ 



ll]vl-FV'XTki,TiLP,iri;ik' ;._-,- r ,',. ,,,..'', ',.,„ 



Computer KonlaW 2-3i 



Handler-Uberefcht 



jjnss.» 


- ' ;■ ■ : - .''..' '','.' '■'- 


haben eino SpckheiJtapazilal 


I'lci^ .joiiMi'-i 5peicherlLapaziciil 


^elLT •[.-: "■■n^^rSpekheiplalz 


Mwbatronik EPROM- 

raierhareRausIeiiicihl'ROM^ 




TI-Software-Hitparade 












den, die Tl-Usct enigegriEfcn, die 






Bremen waren und don wieutr m 




'■- P««^n 




arlen deijunigeii, die 


am wie immcr geschncben haben, v 


ufden beriicksidiii£l. 


1. SPADX1U 


(8) 


S,AS 


2. 4A-DOS 


|1U) 


U,AS 


3. JOYpaint<99 


ID 


A,AS 


4. Die Minnie 


<4> 


S.AS 


5. TI-Arllstn 


<») 


A. AS 


6. DM-10003.5 


li) 


A,AS 


7. BHslness-Graph99 (-) 


A,XB 


8. AXEL F. 


(2) 


M.XB 


9. T-O-DOOM-Edilor (-) 


A.XB 


10. RAPID-COPY 


<-) 


U,AS 




opateles 


ausUSAisC 


Volker BtrxtJMMB, HiiolgMlstr. 8, 6803 Edineen 


Der Club far alleTI-User: 






TI Wer Workshup Rheirdand 






Dcpl. AllgeiDcic + Software 












2™;"""™ 







Bezugsqyeflen 




loz KLEINANZEIGEN 



Computer KorWakt 2- 




KLEINANZEIGEN 



EBE 



4? 



BgDorta-joftk ,fl'L> 



x«4 



•v 



UiMMIMMI 






Lffissfi 



IMIMBM WMMfl 
PRIWnCH ECHNIK 




ii» KLEIN ANZE1GEN 



Computer Kontaki 2-3 






JupitersoftGdbR 

y .' 7.90 "DM 



KLEINANZEIGEN 




KLEINANZEIGEN 



GENEVE 9640 




CorComp Diskcontroller dm 395.- 

Triple Tech-Karle DM 375.- 

NEU!Joypaint + PAL ™™n w 99.- 



ATAB1 SPEC™* 



A ^*j 








Riennevaplus 



in Berichitri ?.u IMrsm Ccmpuisr zu ve 



nierankreuzen: 

O lilsti DM 4,00 O SHete DM 31,00 

O 2Hefte DM 8,00 O 10Hefle DM 34,00 

O 3Hefts DM 11,60 O HHefte DM 36,50 

O 4Hefto DM 15,00 O U'Hsfrs DM 39,00 

O 5Hefte DM 18,50 O lillefte DM 41.50 

O 6Hefte DM 21,80 O 14Hefte DM 44,80 

O 7Hette DM 25,00 O ISHefte DM 46,50 

O SHefle DM 28.00 O 16Hsfte DM 49,88 



ON=10-11/87 ON'W: 




Einen 

Namen 



haben wir uns bej den Atari-Fans sic her schon 
gemacht Sait 1984 gibt ea die Computer Kontakl. 
Fur viele war das die Zeitschrift, wenn es urn die 
8-Bit- Ataris ging. 

Aber die Entwicklung ging weiter. Auch wir vom 
Veilag Ratz-Eberle lieften uns 1987 etwas Neues 
einf alien, was auf Anhieb auf Erfolgskurs ging: das 
ATARImagaz/n. Prall gefQIlt mil Informationen, 
Tips und Tricks, Leserrubrlken und vielem mehr. 

In (iiesem Zusam men hang zwei Nachrtchlen, 
elne gute und eine schlechie. Wie immer zuerst 
die schlechte. Die Ausgabe 2-3/88 der Computer 
Kontakl wird die letzte sein. Und nun die gute: Ab 
der Ausgabe 3/88 des ATARI magazrns erscheint 
dieses monatlich. Genau am 10. Februar 1988 
kommt das erste "monatliche" an die Kioske. Fur 
alle Atarianereine neue Ara. Informationen in Hulls 
und Fulle in altgewohnter Qualitat. Und das immer 
in der Mitte eines jeden Monats. 

Wir glauben, daG dlese Entscheidung fur alle die 
richtige war und hoffen, dai) Sie uns auch monat- 
lich die Treue halten werden. 



A 

Ratz-EbfrlE 



